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PROF. R. SABBATINI 

BASIC 

o: i i ij 

INTRODUQAO A PROGRAMAgAO BASIC 
PARA MICROCOMPUTADORES 




QUEEUM 

COMPUTADOR? 


Desde dpocas imemoriais, o ho- 
mem tem inventado ferramentas e 
instrumentos para ajudd-lo a fazer 
milhares de coisas diferentes. Pode- 
mos imaginar a ferramenta como 
uma espdcie de extensao dos senti- 
dos e dos musculos do ser humano. 
0 que d um telescopio, por exemplo? 
Nada mais do que a ampliagao do 
sentido da visao. Sem instrumentos e 
ferramentas, certamente o homem 
nao teria atingido o grau de civiliza- 
gao que tem hoje, nem progrediria 
tao depressa. 

Tambem o computador pode ser 
visto como uma espdcie de ferramen¬ 
ta que o homem inventou para o aju- 
dar, ampliando os poderes de seu 


prdprio cdrebro. E usando o seu cdre- 
bro que o homem e capaz de resol¬ 
ver problemas, decidir coisas e me- 
morizar informagoes. Com a ajuda 
do computador, entretanto, ele pode 
fazer cdlculos complicadfssimos mui- 
to mais rapidamente do que com ou- 
tros meios. 

O computador tambem tem MEMO- 
RIA, ou seja, ele d capaz de guardar 
as informagoes e reutilizd-las. Essas 
informagoes, que sao chamadas de 
DADOS, devem ser colocadas por 
um ser humano na memoria do com¬ 
putador. 

Muitas vezes, os computadores sao 
capazes de memorizar coisas que os 
homens nao conseguem: listas lon- 
gas de names e de numeros, por 
exemplo. 

Um computador e capaz de achar 
rapidamente qualquer informagao 
guardada em sua membria. Ele pode 
tambem comparar dados entre si, pa¬ 
ra mostrar, por exemplo, qual e o 
maior ou o menor. 

Tudo isso faz do computador uma 


ferramenta extremamente poderosa, 
um auxiliar indispensdvel do homem 
moderno, em um numero enorme de 
atividades, nos bancos, nas empre- 
sas fomecedoras de energia, nas tele- 
comunicagoes, nas escolas etc. 



m computador 
pode fazer tudo? 


Entretanto, mesmo sendo tao pode- 
roso, o computador e uma mdquina 
relativamente primitiva, quando com- 
parada com o cerebro humano. O 
computador nao tem s^ntimentos, 
nem iniciativa propria. Ele so faz o 
que um ser humano mandar: essa 
pessoa e chamada PROGRAMA- 
DOR, e sua fungao d colocar no com¬ 
putador uma sdrie de comandos ou 
instrugoes, que dizem exatamente o 
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que a mdquina dev@rd reolizar. Esta 
s6rie de ordens 6 chamada de PRO- 
GRAMA e, sem este, nenhum compu¬ 
tador iunciona. 



computador 
e uma ferramenta 
universal 


A grande vantagem do computa¬ 
dor sobre os outros instrumentos e 
que, com um s6 aparelho, podemos 
fazer muitas coisas diferentes. Para is¬ 
so, basta colocar um outro programa 
em sua memdria, e ele lhe obedece- 
rd. Por isso, dizemos que o computa¬ 
dor 6 uma ferramenta universal. Hoje 
em dia, com os robos (que sao compu- 
tadores dotados de forga e movimen- 
to), o numero de coisas que se pode fa¬ 
zer d maior ainda. Portanto, sabendo 
programar um computador, vocd po- 
derd domind-lo completamente. 



importante 

aprender 

programagao? 


Em muitas profissoes, o computa¬ 
dor e uma ferramenta de trabalho 
muito importante e necessdria. 
Quern quiser estudar para engenhei- 
ro civil, por exemplo, e nao souber 
computagao, vai ser .incapaz de cons- 
truir prddios grandes, estradas e tu- 
neis. Outras profissoes, que ainda 
nao usam muito o computador, usa- 
rao cada vez mais no futuro. Exem- 
plos: Medicina, Biologia, Educagao, 
Direito, etc. Por isso d importante que 
todos aprendam alguma coisa sobre 
os computadores. 

E claro que nem todas as pessoas 
que usam computadores precisam sa¬ 
ber programd-los. Pode-se comprar 
um programa pronto, e bastard colo- 
cd-lo no computador e utilizd-lo devi- 
damente. Entretanto, so se consegui- 
rd dominar completamente o compu¬ 
tador se se souber programd-lo. Mui¬ 
tas vezes, nao se achard um progra¬ 
ma feito por outros que realize exata- 
mente o que se quer. E, aldm disso, 
como se sabe, a programagao de 
computadores e uma profissao cada 
vez mais valorizada e atraente. 

Atd hd quatro ou cinco anos a 
maioria das pessoas nao tinha a me- 
nor chance de utilizar diretamente 
um computador no seu dia-a-dia. En¬ 
tretanto, com o progresso maravilho- 


so da eletronica, surgiram computa¬ 
dores cada vez menores e mais bara- 
tos, que hoje estao ao alcance de to- 
dos. Esses novos computadores, cha- 
mados de microcomputadores, estao 
entrando em todos os ramos da ativi- 
dade humana, e em breve serdo tdo 
comuns quanto os telefones e os auto- 
mdveis. Devemos nos preparar para 
esse futuro! 



OMOEUM 

COMPUTADOR? 


Para entender como 6 organizado 
um computador, temos antes que 
examinar a maneira como ele d utili- 
zado. 

Podemos imaginar o computador 
como uma espdcie de calculadora. 
Para efetuar um cdlculo por meio de- 
la, precisamos primeiro fornecer-lhe 
os valores que serao utilizados nas 
contas. Isso d feito pelas teclas, que 
tambem sao usadas para informar d 
calculadora quais serao as operagoes 
a realizar (soma, divisao etc.). Uma 
vez fornecidos os dados e as opera- 
goes, a calculadora efetua os cdlculos 
e mostra os resultados no visor. 

A forma de utilizar um computador 
nao d muito diferente desta. Ele 6 for- 
mado por diversos elementos, cada 
um encarregado de uma fungao es- 
pecffica. 



ENTRADA: 6 a parte do computador 
que recebe os DADOS (numeros, le- 
tras) e o PROGRAMA (ordens e ope¬ 
ragoes). 


para informar ao computador os da¬ 
dos e as instrugoes ou comandos. Por- 
tanto, ele e o elemento de ENTRADA 
do computador. 

2) A UNIDADE CENTRAL DE PRO- 
CESSAMENTO — esse d o nome da 
calculadora que o computador tern 
em seu interior. Na maioria dos mi¬ 



crocomputadores, essa unidade estd 
localizada na mesma caixa do tecla- 
do, e d formada por milhares de cir- 
cuitos eletrdnicos de tamanho micros- 
copico. Essa parte e o PROCESSA- 
DOR do microcomputador, e 6 tam¬ 
bem conhecida pela abreviatura 

(UCP). 

3) A TELA DE VIDEO — a informagao 
que for digitada (datilografada) no te- 
clado aparece ao mesmo tempo na 
tela de uma TV, ligada ao computa¬ 
dor: desse modo, pode-se ver o que 
se estd fazendo. Quando o resultado 
estiver pronto, o computador tam- 
bdm vai escrev^To na tela. Portanto, 
ela d o elemento de SAIDA do nosso 
computador. 

Outra parte importante do compu¬ 
tador d a MEMORLA, da qual jd fala- 
mos acima. A memdria do computa¬ 
dor d capaz de guardar ao mesmo 
tempo um certo numero de informa- 
goes. Por exemplo, muitos microcom¬ 
putadores podem guardar atd 48 000 
numeros ou letras em sua memdria. 
Por isso se diz que eles tdm uma me¬ 
mdria de 48 K (o K significa quilo, ou 


PROCESSADOR: d o elemento do com-' 
putador que mostra os resultados. 

Um computador pode ter diferentes 
tipos de entradas e safdas, ao contrd- 
rio das calculadoras mais simples. 
Na maioria dos computadores peque- 
rios (chamados de microcomputado¬ 
res) estas sao as partes responsdveis 
pelas tres tarefas: 

1) O TECLADO — parecido com o de 
uma mdquina de escrever, d usado 


1 000 vezes: portanto, 


48 x 1 000 = 48 000). 


Nao se vd a memdria, a nao ser 
que se abra a caixa do teclado. Esta 
d formada por milhares de circuitos 
microscdpicos, do mesmo tipo que os 
do processador. 
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O que e um 

programa de 
computador? 


Os computadores recebem ordens 
em uma linguagem prdpria, diferen- 
te da nossa. Assim, vocd terd qu© 
aprendd-la, para conseguir se comu- 
nicar com ele. 

A linguagem que a maioria dos mi- 
crocomputadores d capaz de enten- 
der chama-se BASIC. Ela foi inventa- 
da nos Estados Unidos hd cerca de 
vinte anos. Por isso, cada ordem ou 
comando na linguagem BASIC d 
uma palavra em inglds. Entretanto, o 
numero desses comandos d peque- 
no, o que toma fdcil decord-los. Com 
algumas aulas, vocd jd saberd usd- 
los como se fossem sua prdpria lin¬ 
guagem. Aprender BASIC d muito 
mais fdcil que aprender qualquer 
idioma estrangeiro. 

• Eis um exemplo de comando sim¬ 
ples em BASIC: 

PRINT 8 + 3 

Esta ordem ou comando do progra¬ 
ma tern o seguinte significado para o 
computador: 

ESCREVA O RESULTADO 
DA CONTA 8 + 3 

A palavra print quer dizer. "escre- 
va", em inglds. 

Normalmente um programa d 
constituldo de uma sdrie de instru- 
goes ou comandos dados ao computa¬ 
dor. Ele realiza um de cada vez, na 
ordem em que eles forem fornecidos. 

Todo programa digitado no teclado 
do computador d, primeiramente, 
guardado em sua memdria. Assim 
ele pode se lembrar do programa, e 
repeti-lo par a n6s, tantas vezes quan- 
tas quisermos. Essa d sua grande dife- 
renga em relagfio ds calculadoras. 

Infelizmente, a memdria do compu¬ 
tador se apaga ao desligarmos a for¬ 
go. Todas as informagdes guardadas 
se perdem, inclusive o programa. 

Por esse motivo, seria bom ter uma 
maneira de guardar o programa em 
outro lugar, para que ndo se perca 
ao desligarmos o computador. Assim 
nfio serd necessdrio digitar de novo 
todo o programa, ao ligarmos o com¬ 
putador. 

Os microcomputadores tdm uma 
maneira muito simples de guardar es¬ 
ses programas: um gravador cassete 
comum. Atravds de um fio que liga o 
computador ao gravador, todas as 
instrugdes de um programa podem 


lESTE 


1.1. Marque V se for verdadeiro, ou simplificado. Escreva na figura abai- 
F se for falso: xo quais sao os elementos de EN- 

TRADA e de SAlDA da calculadora. 

( ) O computador d capaz de pen- 
sar sozinho. 

( ) O computador fica chateado se 
error algum cdlculo. 

( ) O computador nao erra quando 
realiza algum cdlculo. 

( ) O computador nao tern memdria. 

( ) O computador faz contas mais 
rapidamente que o homem. 

( ) O computador pode fazer coi- 
sas sem ser programado pelo 
homem. 


1.2. Defina com suas prdprias pa- 
lavras: 

PROGRAMA: 

DADOS: 


1.3. Diga se concorda ou nao com a 
seguinte afirmagao, e por qud: 

UM DIA OS COMPUTADORES 
VAO MANDAR NA HUMANIDADE 


1.4. Cite trds trabalhos que o ho¬ 
mem faz com auxflio dos computa¬ 
dores: 

1 - 


/ 

1.8. Escreva para que serve cada 
parte do computador: 

TECLADO: 

TELA DE VIDEO:- 

UNIDADE DE PROCESSAMENTO: 

MEM6RIA: 


1.9. O que d memdria auxiliar, e 
qual d o tipo de memdria auxiliar 
que os microcomputadores mais co- 
muns utilizam? 


1.10. Marque V se for verdadeiro, F 
se for falso: 



1.7. Qual a diferenga entre o tecla¬ 
do de um computador e o de uma 
calculadora? 


2 - 

3- 

1.5. Escreva, na figura abaixo, os 
nomes das partes do microcompu- 
tador: 



( ) BASIC d uma linguagem de 
computador. 

( ) Um idioma estrangeiro d mais 
simples do que o BASIC. 

( ) O BASIC d uma linguagem in- 
ventada pelo homem. 

( ) Um computador sd pode ser 
programado na sua prdpria lin¬ 
guagem. 

( ) Um programa d um conjunto de 
instrugdes ao computador. 

( ) O programa de computador pre- 
cisa ser guardado na memdria. 

( ) Existe uma parte da memdria 
do computador que ndo pode 
ser apagada. 


1.11. Explique o que significam pa¬ 
ra o computador os seguintes co¬ 
mandos em BASIC: 

PRINT 12 - 45 

PRINT 29 + 3-8 * 


1.6. Uma calculadora eletrdnica co- 1.12. Por que o microcomputador en- 
mum d uma espdcie de computador tende BASIC logo que vocd o liga? 
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CABO 



COMRUTADOR 


GRAVADOR CASSETE 


ser gravadas em uma fita cassete, 
quando voce quiser. 

O computador grava essas informa- 
goes usando uma espdcie de cddigo 
Morse de alta velocidade. Quando 


vocd quiser colocar de novo o progra- 
ma na memdria do computador, bas- 
ta "tocar" para ele a fita gravada, e 
ele reconhecerb o programa, automa- 
ticamente. 


Assim, o gravador auxilia a memb- 
ria principal do computador e por is- 
so ele d chamado de "memdria auxi- 
liar". 

A medida que voce aprender BA¬ 
SIC, vocd tambdm serd capaz de en- 
tender os programas de computador 
escritos nessa linguagem. E poderd 
tambdm comegar a escrever outros 
programas — os seus programas! 

Quando vocd ligar o microcompu- 
tador, ele jd estard pronto para acei- 
tar instrugoes em BASIC, digitadas 
por vocd no teclado. 

Ele sabe BASIC porque essa lin¬ 
guagem jd vem gravada em uma me- 
mdria especial, colocada na fdbrica, 
dentro da caixa do teclado. Essa me- 
mdria nunca se apaga, ao contrdrio 
da outra, que vai ser usada para co¬ 
locar os seus programas e dados. 


COMO ESTUDAR BASIC 

O objetivo deste curso d ensinar 
voce a programar microcomputado- 
res usando a linguagem BASIC. Pra- 
ticamente todos os microcomputado- 
res hoje existentes sao capazes de 
entender essa linguagem: assim, o 
que voce aprender aqui poderd ser 
aproveitado para varios tipos e mar- 
cas de computadores pequenos ou 
mesmo grandes. 

Entretanto, existem muitas varian- 
tes da linguagem BASIC, conforme 
a marca do computador: alguns co- 
mandos que existem em um compu¬ 
tador nao existem em outro, ou en- 
tao funcionam de modo diferente. Es¬ 
sas variantes sao chamadas de dia- 
letos". Existem, por exemplo, diale- 
tos diferentes para os micros tipo 
TK-85, CP-500, TK-2000 etc. 

Em que computador estudar? 

Para que voce aprenda melhor, 
sem iicar confuso com os diversos 
dialetos existentes, este curso ensi- 
nara apenas a variante do BASIC pa¬ 
ra os microcomputadores menores e 
mais baratos: TK-82C, TK-83, CP-200 
e Ringo Essas sao marcas nacio- 
nais de microcomputadores, que fa- 
lam exatamente a mesma lingua¬ 
gem BASIC, e que sao similares 
(compativeis) com o microcomputa- 
dor ingles chamado Sinclair ZX-81 e 
o norte-americano Timex 100. 

Tudo o que voce aprende aqui se 
aplica a todos os computadores des- 
sa linha, mas nao a computadores 
de outras marcas. 

Diferengas entre os computadores 

Existem pequenas diferengas en¬ 
tre as diversas marcas indicadas. 


Neste curso nao ensinaremos como 
montar ou ligar cada tipo de compu¬ 
tador: isso 6 facilmente encontrado 
nos manuais que acompanham os 
micros. Quanto a operagao do tecla¬ 
do e do video, as diferengas sao as 
seguintes: 

— os computadores da Microdigi¬ 
tal (TK-82C, TK-83 e TK-85) tdm exa¬ 
tamente o mesmo sistema de ope- 
ragao e disposigao das teclas. A 
unica diferenga e que o TK-82C e o 
TK-83 tern um teclado de membra- 
na (sem partes mdveis), ao passo 
que o TK-85 tern teclas mecanicas; 

— a tecla chamada de NEWLINE, 
nos computadores tipo TK, d cha¬ 
mada de ENTER, nos computado¬ 
res CP-200 e Ringo. Entretanto 
sua fungao e exatamente igual 
em todos; 

— a disposigao do teclado CP-200 
e do Ringo d ligeiramente diferen¬ 
te da encontrada nos TK. O 
CP-200 tern duas teclas SHIFT, ao 
invds de uma, e tern duas teclas 
RESET vermelhas, na parte supe¬ 
rior do teclado. O Ringo tern uma 
tecla de ENTER em uma disposi¬ 
gao diferente dos anteriores, mar- 
cada com uma flecha para baixo; 

— a forma como aparecem textos 
e grdficos na tela de TV tambem 
pode ser diferente. Nos computa¬ 
dores TK, as letras sao escuras, so- 
bre fundo branco. No CP-200, nor- 
malmente d o contrdrio (letras 
brancas sobre fundo escuro), mas 
isso pode ser facilmente invertido. 
No Ringo, vocd pode mudar de 
uma cor para outra com o auxilio 
de um interrupt or. 

Quanto ao restante da operagao, 
todos os computadores funcionam 
da mesma maneira. 


Um aviso importante: embora seja 
possivel aprender programagao sem 
computador, isso nao e recomenda- 
vel. Este curso permite que voce tes¬ 
te as ligoes e os programas e realize 
os exercicios e os testes em um com¬ 
putador qualquer, do tipo indicado 
aqui. Vocd vera que o seu rendimen- 
to serd muito maior. 

Como utilizar este curso 

As ligoes do curso de BASIC sao 
organizadas em capitulos, que irao 
apresentando os comandos e sua uti- 
lizagao em uma certa ordem. A nao 
ser que voce jd conhega BASIC, nao 
tente pular capitulos ou estudar fo¬ 
ra da ordem. Os capitulos sao dividi- 
dos em segoes distintas, cada um 
com tres partes: 

— texto 

— exercicios 

— teste 

Voce deve inicialmente ler o texto, 
seguindo atentamente todos os 
exemplos. Teste os exemplos dados 
no computador e veja os resultados. 
Tente modificar os programas, em 
seguida realize os exercicios propos¬ 
es. Use sua imaginagao e tente fa- 
zer programas, usando sua prdpria 
cabega. 

Finalmente, realize o teste e veja 
o seu desempenho. Se voce errou 
muito ou nao conseguiu responder a 
todas as questoes, estude a segao 
mais uma vez. 

E lembre-se: nao adianta apren¬ 
der uma linguagem qualquer, para 
depois nao usd-la. Fatalmente vocd 
a esquecerd apds um certo tempo. 
Durante e apds o curso, use bastan- 
te o computador, sempre tentando 
criar novos programas! 
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OMO USAR O 

MICRO- 

COMPUTADOR? 


Agora que vocd jd sabe como d o 
microcomputador, vamos aprender a 
operd-lo. 

M ontagem do 
micro¬ 
computador 


As instrugoes completas para liga- 
gao do computador podem ser lidas 
no prdprio Manual do equipamento. 
Aqui damos apenas algumas instru¬ 
goes gerais. 

1) Ligue primeiro o computador, por 
meio de um cabo apropriado, no lu- 
gar onde se liga a antena externa, 
no aparelho de TV. Se algum fio jd 
estiver ligado nesse lugar deve ser re- 
tirado. 

2) Agora ligue o computador na torna¬ 
do. Nos computadores tipo TK, isto 
deve ser feito atravds de uma FONTE 
DE AUMENTAQAO. 

3) Agora ligue o fio da TV em uma ou- 
tra tomada. 

Veja como deverao estar ligados 
os fios: 



4) Agora ligue o aparelho de TV. Co- 
loque o seletor de canais no canal 2. 

5) Para ligar o computador use o in- 
terruptor marcado (LIGA-DESLIGA). 

6) Gire o botao de sintonia atd obter 


a imagem de uma letra K na parte in- PARA DAR COMANDOS AO COM- 
ferior da tela. PUTADOR USAMOS O TECLADO 



Olhe agora para o teclado. 



7) Usando os botoes de brilho e de 
contraste da TV, ajuste-os atd que a 
letra K aparega o mais nitidamente 
posslvel na tela. 

Se vocd nao conseguir enxergar 
bem a letra K, aperte algumas teclas 
do teclado. Veja como as letras que 
voce apertou vao aparecendo na te¬ 
la. Assim ficard mais fdcil acertar a 
sintonia. 

Se o computador jd estiver monta- 
do, d muito mais simples colocd-lo 
em funcionamento: 

1) ligue o aparelho de TV. 

2) ligue o computador. 

Para desligar o computador, faga 
exatamente ao contrdrio: primeiro 
desligue o botao LIGA-DESLIGA, lo- 
calizado atrds da caixinha, depois 
desligue o botao de forga do apare¬ 
lho de TV. 

Experimente agora ligar e desligar 
o computador uma, duas ou trds ve- 
zes. Nao fique com medo de danifi- 
car o computador com esse procedi- 
mento: ele d feito para suportar bem 
essas operagoes. Inicialmente nao va¬ 
mos usar o gravador cassete, por is- 
so nao d necessdrio aprender agora 
como ele d ligado ao computador. 

A primeira coisa que aparece na 
tela da TV, quando vocd liga o com¬ 
putador, d a letra K, dentro de um 
quadrinho preto, na parte de baixo 
da tela: 



Este quadrinho d chamado de CUR¬ 
SOR. Toda vez que ele aparecer na 
tela, no mesmo lugar, significa que o 
computador estb pronto para aceitar 
suas ordens ou comandos, em lingua- 
gem BASIC. 


1) As teclas com letras e numeros 
tern a mesma disposigao que as de 
uma mdquina de escrever comum: 
0, W, E, R, T, Y, etc... Letras, algaris- 
mos ou sinais de pontuagao estao es- 
critos numa mesma tecla. 

Ao con junto de todas as letras e si¬ 
nais gravados nas teclas chamamos 
de CARACTERES DE TEXTO. 

2) Em cada tecla existem vdrios slm- 
bolos ou palavras, que sao chama- 
dos R6TULOS DA TECLA. Algumas 
teclas tern apenas 2 slmbolos ou pala¬ 
vras, outras tdm atd 6. Olhe a tecla 
da letra P: 


PRINT 



TAB 


Vocd pode ver que o simbolo mais 
em cima de todos d PRINT. 

Logo abaixo dele, temos um sinal 
em vermelho: aspas. 

Finalmente, embaixo de todas, ve- 
mos a palavra TAB. 

Todos estes slmbolos e palavras po¬ 
dem ser introduzidos (informados) ao 
computador, usando-se a mesma te¬ 
cla: a tecla da letra P. 

Mas como o computador sabe qual 
palavra ou simbolo nds vamos intro- 
duzir, se a tecla d uma so? 

Isto d muito simples. Vamos experi- 
mentar um pouco para vocd perce- 
ber como d feito. 

A postos? Muito bem: 

Pressione a tecla P uma vez. Nao 
precisa apertar muito forte. Note que 
se ouve um sinal sonoro fininho quan¬ 
do se aperta a tecla. Ele d chamado 
de bip. 

Quando o computador soar o bip, 
quer dizer que ele aceitou*aquilo que 
vocd quis transmitir a ele, ao pressio- 
nar a tecla. 

Olhe para a tecla agora: 

Veja como na parte de baixo apare- 
ceu a palavra PRINT. O cursor agora 
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foi deslocado para depois da palavra 
PRINT na tela, e ainda 6 um quadra- 
dinho preto. 

Mas note que agora a letra dentro 
dele 6 [D 

esta*£ a primeira funqao da 

TECLA: 

Quando o cursor na tela tern a le¬ 
tra K dentro, ao pressionarmos a te- 
cla, a palavra ou simbolo que estiver 
hem em cima das outras 6 informada 
ao computador. Esta palavra d uma 
instrugao ou comando ao computa¬ 
dor, na linguagem BASIC. 



Estamos dando ao computador 
uma ordem: ESCREVA. 

Mas escrever o qud? Precisamos 
dar a ele alguma outra informagao. 

Pressione agora a tecla onde estd 
o numero 3. 

Veja o que ocorreu: 


1 PRINT 3 | L] 


O algarismo 3 apareceu na tela, 
depois da palavra PRINT e um espa- 
go em branco. O cursor mudou de no¬ 
vo para um lugar logo ap6s o nume¬ 
ro 3, e ainda tern a letra L dentro. 

Por isso que ele se chama CUR¬ 
SOR: ele mostra exatamente o ponto 
onde vai ser colocada mais uma ou¬ 
tra informagdo, se voc£ pressionar 
uma tecla qualquer. 

ESTA t A SEGUNDA FUNQAO DA 
TECLA: 

Quando o cursor na tela estd com 
a letra L dentro, ao pressionarmos 
uma tecla, a letra ou numero marca- 
do sao informados ao computador. 

Agora pressione a tecla SHIFT, e 
pressione ao mesmo tempo a tecla K 
(podem existir duas teclas marcadas 
SHIFT: uma de cada lado do teclado, 
na fileira de baixo). 

Veja como estd a tela agora: 


PRINT 3 + QH 


Apareceu o sinal + (mais), logo de¬ 
pois do numero 3, certo? Note que o 
cursor mudou de novo de lugar, indo 
para depois desse sinal de +. 

ESTA t A TERCEIRA FUNQAO DA 
TECLA: 

Quando o cursor na tela tern a le¬ 
tra L dentro, ao pressionarmos uma 
tecla, ao mesmo tempo que a letra 
SHIFT, a palavra, ou simbolo, locali- 
zada em segundo lugar (em verme- 
lho) d informada ao computador. Es¬ 
ta palavra tambdm d um comando 
ou instrugao em BASIC, mas, depen- 
dendo da tecla pode ser tambdm um 
sinal qualquer. 

Neste caso, o sinal + indica ao 
computador uma operagao matemdti- 
ca: a soma. 

Agora pressione a tecla marcada 4: 



Na tela apareceu o numero 4, logo 
depois do sinal de soma. 

Estamos dando uma ordem ao com¬ 
putador: 

PRINT 3 + 4 

que em portuguds significa: 

ESCREVA O RESULTADO DE 3 MAIS 4 

S6 que o computador ainda ndo 
obedeceu d nossa ordem. Por qud? 

Acontece que ele ainda ndo sabe 
se nds terminamos de digitar o co¬ 
mando completamente. No exemplo 
que estamos estudando, pode ser 
que eu quisesse somar outros nume- 
ros ao 3 ou 4, certo? 

Para informarmos ao computador 
que o nosso comando jd estd comple- 
to e pode ser obedecido, pressiona- 
mos a tecla 

NEW LINE. 

Esta tecla significa introduzir, em 
portuguds. Com isso, estamos intro- 
duzindo o comando que digitamos 
antes, e que estd escrito na parte de 
baixo da tela, no computador. E ele 
poderd obedecer. 

Pressione a tecla NEW LINE; veja o 
que acontece: 



A tela fica toda preta, e depois de 
uma pausa bem pequena (o compu¬ 


tador estd calculando o resultado) 
aparece no alto da tela o numero 7. 

O numero 7 d o resultado da opera- 
gao 3 + 4, efetuada pelo computa¬ 
dor, e ele d escrito na tela com o co¬ 
mando que vocd introduziu pelo te¬ 
clado: PRINT. 

Na parte de baixo aparecem os nu- 
meros 0/0. 

Isto significa que o computador 
ndo achou nenhum erro no comando 
que vocd introduziu. Isso ds vezes po¬ 
de acontecerl 

Mais tarde vamos explicar direiti- 
nho o que significa isso. 

Se vocd digitou errado alguma coi- 
sa na tela, e ndo sabe como apagd- 
la, pode desligar o computador. Tor- 
ne a ligd-lo apds alguns segundos, e 
comece tudo de novo. 

Ndo se preocupe que isso ndo vai 
prejudicar o computador, nem mu- 
dar os ajustes jd feitos na TV. 

Apds terminarmos o ultimo exerci- 
cio a tela estava assim: 



Para voltar novamente o cursor K 
d tela, pressione a tecla NEW LINE: 



O computador estd pronto para 
aceitar outros comandos. 


Resumo 

Atd agora vimos que existem dois ti- 
>s de cursores: S3 © E 
LE J indica que o computador aceitard 
uma ordem ou comando, quando for 
pressionada uma tecla. 

A instru^ao ou comando sdo pala- 
vras da linguagem BASIC, marcadas 
na parte superior do teclado, acima de 
cada tecla. 

Exemplos de instrugdes em BASIC: 
EDIT STOP 

PRINT CLS 

Localize cada uma destas palavras 
no teclado. 

Se a palavra desejada estiver escrita 
em vermelho, a tecla SHIFT deverd ser 

B ressionada ao mesmo tempo. 

"2 indica que o computador aceitard 
uma letra, numero ou sinal marcados 
em vermelho, a tecla SHIFT deverd ser 
pressionada ao mesmo tempo. 
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omo corrigir 
erros de 
digitagao 


Os erros que surgirem durante a di- 
gitagao de uma linha podem ser cor- 
rigidos antes que pressionemos a te- 
cla NEW UNE. 

Para isso, usamos a tecla sobre a 
qual estd escrito RUBOUT, no canto 
superior direito do teclado. RUBOUT 
quer dizer CANCELAR, em portu- 
gu§s. 

Para usar a tecla RUBOUT, deve- 
mos pressionar ao mesmo tempo a te¬ 
cla SHIFT, e a tecla 0 (zero). Note que 
a palavra RUBOUT estd marcada em 
vermelho acima da tecla com o nu- 
mero 0. Por isso temos que usar a te¬ 
cla SHIFT. 

Cuidado! Se vocd esquecer de 
apertar a tecla SFUFT, fard aparecer 
na tela o numero 0, ao invds de can- 
celar. 

Vamos seguir um exemplo: 

Vamos supor que voc£ quer digitar 
o seguinte comando: 

PRINT 3 + 25 

Mas errou, e digitou: 

PRINT 4 + 25 

Introduza esse comando pelo te¬ 
clado: 

O cursor na tela estd marcado B 

Pressione a tecla P: aparece PFUNT 
e o cursor muda para [E]. 

Pressione a tecla 4: aparece o nu¬ 
mero 4. 

Pressione a tecla K juntamente 
com SHIFT: aparece o sinal + 

Pressione as teclas 2 e 5: aparece o 
numero 25. 

Agora, queremos corrigir o nume¬ 
ro 4, mudando-o para 3. 

Existem duas maneiras de se fazer 
isso: 

PRIMEIRA MANEIRA DE CORRIGIR 
UMA UNHA 



Pressione a tecla SHIFT, e a mante- 
nha abaixada com o dedo. 


Agora pressione a tecla RUBOUT 
uma vez. Veja que o cursor L volta pa¬ 
ra trds, e apaga da tela o numero 5. 


[print 4 + 2 E 


Repita a operagao (SHIFT e RU¬ 
BOUT) por mais tr£s vezes. 

Veja que fica na tela somente o co¬ 
mando PRINT que voc6 tinha digitado: 



Depois que todos os numeros esti- 
verem apagados, pressione nova- 
mente as teclas 3, +, 2 e 5. Veja que 
o comando ficou como voc£ queria: 


^PRINT 3 + 25 □ 


A 


Pressione a tecla NEW UNE para 
ver o resultado. 

SEGUNDA MANEIRA DE CORRIGIR 

As vezes, quando o comando 6 
muito comprido, nao vale a pena 
apagar tudo para corrigir alguma coi- 
sa bem no comego. 

£ possivel voltar atd onde estava o 
erro, sem ser preciso apagar. 

Observe o teclado de seu TK-85. 

A tecla 5 tern, na parte de cima, uma 
flechinha virada para a esquerda. 

E a tecla 8 tern uma flechinha vira- 


da para a direita. 


«-E 

-»(1 

0 

0 


Com essas duas teclas, podemos 
mover o cursor para trds e para dian- 
te, na linha de comando, para corri¬ 
gir o que quisermos. 


TESTS 

2.1. O que devemos fazer para ligar 
um micracomputador? 

2.2. Desenhe aqui o que aparece na 
tela, quando o computador 6 liga- 
do: 



2.3. Defina com suas prdprias pa la¬ 
vras: 

CURSOR: 

CARACTERES DE TEXTO: 

RbTULOS DA TECLA: 

BIP: 

2.4. O que significa para o computa¬ 
dor, quando o cursor estd com as le- 
tras: 

®: 

CD: 

2.5. Cite as tr6s coisas para que ser¬ 
ve uma tecla do microcomputador 
que voce jd conhece: 

2.6. Sem usar o computador, escre- 
va qual serd o resultado dos seguin- 
tes comandos: 

a. PRINT 345 - 12 + 8 

b. PRINT 968 - 234 + 2 

2.7. Que tecla devemos pressionar 
para aparecer de novo a tela com o 
cursor K, depois de ter sido mostra- 
do o resultado de um comando 
PRINT? 

2.8. Que tecla devemos pressionar 
quando queremos introduzir no com¬ 
putador algum caracter ou palavra 
marcado em vermelho na tecla? 

2.9. Que tecla devemos pressionar 
para que o computador realize o cdl- 
culo dentro de um comando PRINT? 

2.10. Faga um desenho mostrando 
como se ligam entre si as partes de 
um computador (video e teclado): 
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Vamos seguir um exemplo para 
ver como ambas funcionam. 

Suponhamos que voce queira es- 
crever este comando: 

^ PRINT 65 + 47 

E errou, escrevendo: 

PRINT 25 + 47 

Escreva este comando no computa- 
dor: 


r 


IMPRINT 25 + 47 ffl 


Veja como o cursor fica no final da 
linha de comando. Para apagar ape- 
nas o numero 2 (errado), sem apagar 
os outros, usamos a flechinha volta- 
da para trds 

Aperte SHIFT e a tecla 5 ao mesmo 
tempo: 




I PRINT 25 + 4 H] 7 


Veja como o cursor voltou a ficar 
entre os numeros 4 e 7: 

Agora tome a pressionar as teclas 
5 e SHIFT mais 3 vezes. 

Cuidado para nao esquecer de 
pressionar SHIFT, que fard aparecer 
o numero 5 na linha! 



Agora o cursor estd exatamente de- 
pois do numero que queremos corri- 
gir. Pode pressionar a tecla RUBOUT 
(nao se esquega que isto se faz pres- 
sionando ao mesmo tempo as teclas 
SHIFT eO): 


1 PRINT HD 5 + 47 


Para introduzir o numero correto, 
basta pressionar a tecla com o nume¬ 
ro 6. Veja como o 6 entra perfeitamen- 
te: 


I PRINT 65 + 47 


Se agora voce quiser ver o resulta- 
do do comando, pressione a tecla 
NEW LINE. 

A TECLA NEW LINE PODE SER 
PRESSIONADA COM O CURSOR EM 
OUALQUER POSIOAO. 

Entendido? 

Se voce apertou a tecla com a fle¬ 
chinha <— muitas vezes, pode aconte- 
cer que o cursor vd para o comego 
da linha: 



Para faz6-lo voltar atd a posigao 
correta, pode usar a tecla com a fle¬ 
chinha para a direita -+ que d usa- 
da pressionando-se ao mesmo tempo 
as teclas SHIFT e 8: 



Note que a palavra PRINT d "pula- 
da" de uma vez sd, quando se aperta 
uma das teclas com flechinhas. 

Experimente apagar com RUBOUT 
a palavra PRINT. Note que ela tam- 
bdm d apagada de uma sd vez. 




Introduza no computador as linhas de co¬ 
mando abaixo, uma de cada vez, e pressio¬ 
ne a tecla NEW LINE para ver o resultado. 

Olhe bem para a linha antes de pressio¬ 
nar a tecla NEW LINE. 


1) PRINT 43 + 65 

2) PRINT 235 - 123 

3) PRINT 49 + 22 -3 

4) PRINT 894 - 425 + 11 

5) PRINT 123 + 456 + 789 - 56 

6) PRINT 11 + 45 - 234 - 123 


7) PRINT 9+12-78 

8) Introduza um comando para realizar a so¬ 
ma dos numeros 12, 24 e 33 


9) Se o Zico ja fez 765 gols, quantos faltara 
para completar 1000? 

10) Introduza um comando para somar as 
idades de tres amigos seus. 


Agora introduza as linhas de comando 
abaixo, uma de cada vez. Antes de pressio¬ 
nar a tecla NEW LINE, corrija a linha de co¬ 
mando, usando as teclas 4= e RUBOUT, 
de modo a ficar igual a segunda linha. De- 
pois pressione a tecla NEW LINE e anote o 
resultado: 


Errado Certo 

11) PRINT 957 + 125 PRINT 957 + 124 


Resultado 


ltado 


12) PRINT 23 - 
13 + 45 

13) PRINT 462 + 
234 - 12 

14) PRINT 123 - 
1 + 85 

15) POKE 43 + 
12-55 


PRINT 23 + 

13 + 45 

PRINT 562 - 
234 T 12 

PRINT 1213 + 
12 + 85 

PRINT 43 + 12 
- 55 



16) POKE 23412 + 
998756 

17) PRINT 1213 - 
2342 

18) PRINT 908J478 

19) PRINT 1.234 - 
45.5 


PRINT 341 + 998 

PRINT 1213 + 

345 - 2342 

PRINT 808 + 478 

PRINT 12.34 - 
45.5 
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rros que o 

computador 

acusa 


0 computador nao aceita coman- 
dos que estejam escritos de forma er- 
rada para ele. Se isso acontecer, ele 
mostra na tela o erro, e espera que 
vocd o corrija. 

Introduza no computador a seguin- 
te linha: 

PRINT 23 + + 34 

A tela fica assim: 


I PRINT 23 + + 34 [[] 


Observe que atd agora o computa¬ 
dor ainda nao notou nenhum erro. 

Pressione agora a tecla NEW LINE, 
para que o computador realize o cdl- 
culo. 

Note o que aconteceu: 



Apareceu outro quadradinho, se- 
melhante ao cursor, mas com a letra 
S dentro. 

Mesmo sendo parecido, o S nao d 
um cursor. Ele d uma mensagem de 
erro, escrita pelo computador para 
avisar que vocd escreveu algo erra- 
do no comando (no caso, dois sinais 
+ + em seguida). 

Note que o S fica exatamente de- 
pois do primeiro sinal. Isso quer dizer 
que o computador indica que o se- 
gundo sinal estd errado (estd sobran- 
do). 

0 ERRO s6 FOI NOTADO PELO 
COMPUTADOR AO SE PRESSIONAR 
NEWLINE 


regras dessa linguagem. Felizmente 
ele indica o erro, para que possamos 
corrigi-lo. 

Enquanto voce nao corrigir esse er¬ 
ro, o computador nao obedece ao co¬ 
mando. 

Experimente pressionar NEW LINE 
de novo. Note que o computador in- 
siste na mesma mensagem e nao 
obedece a um comando errado. 

Para corrigir o comando errado, 
use as teclas <— e RUBOUT, exata¬ 
mente como vocd treinou antes. 

Note que, ao pressionar a tecla <— 
para voltar ao local do erro, a mensa¬ 
gem 'S desaparece. O computador re- 
conheceu que vocd estd querendo 
corrigir a linha, e retirou a mensa¬ 
gem para nao atrapalhar. 


r 


IMPRINT 23 + + [l] 34 


Agora apague o segundo sinal + 
com RUBOUT: 



E pressione NEW LINE para ver o 
resultado: 


57 


I 0/0 


Agora o computador aceitou a li¬ 
nha de comando. 


T R $ T S 

3.1. Qual e a tecla usada para apagar al- 
guma letra ou numero da tela? 

ATENQAO! Nos exercfcios seguintes nao 
use o computador! 

3.2. Suponhamos que foi introduzida es- 
ta linha no computador: 

PRINT 123 + 456 

a. Escreva como ficard a linha se eu 
pressionar RUBOUT tres vezes: 

b. E, agora, se em seguida eu pressio¬ 
nar as teclas 2, 3 e 5. 

c. E, agora, se eu pressionar a tecla 
NEW LINE: 

3.3. Suponhamos que foi introduzida es- 
ta linha no computador: 

PRINT 325 + 459 

a. Escreva como ficard a linha, se eu 
pressionar a tecla <— duas vezes: 

b. E, agora, se eu pressionar a tecla <— 
mais uma vez: 

c. E, agora, se eu pressionar a tecla —► 
por duas vezes, depois a tecla RUBOUT 
uma vez, e depois o numero 5: 

d. E como ficard o resultado, se agora 
eu pressionar NEW LINE: 



3.4. Diga o que estd errado nos seguin¬ 
tes comandos: 

a. PRINT 345 + + 825 

b. PRINT 34J902 

c. PRINT PRINT 345 

3.5. O que significa a mensagem S? 

3.6. O que acontece com a mensagem S, 
quando eu pressiono RUBOUT, < = ou => 

3.7. Que tecla temos que pressionar para 
o computador verificar se existe algum 
erro na linha de comando? 


mu 


e 

[?§i 


Introduza as linhas de comando Agora pressione a tecla NEW LINE, 
abaixo, uma de cada vez. Note que ca- Veja onde aparece a mensagem S. 
da uma delas tern um erro. Anote o er- Corrija, e pressione NEW LINE de no- 
ro que voce acha que a linha tern, an- vo. Anote o resultado. 
tes de introduzi-la no computador. 


S indica um erro de sintaxe. Sinta- Errado Qual e o erro? Resultado * 

xe quer dizer forma correta de escre- 

ver um comando para o computador. 1) PRINT 45 + - 25 - - 

A linguagem BASIC d muito sim¬ 
ples, mas o computador nao vai en- 2) PRINT 23-2 - - 

tender nada que for escrito fora das 
































T U L 

Vai dar o resultado: 


n 


COMPUTADOR 

EUMA 

CALCULADORA! 


Como voc§ viu, usando a instrugao 
PRINT, n6s podemos fazer contas 
cx>m o computador. Atd agora, s6 
aprendemos a fazer somas e subtra- 
coes bem simples, como 
PRINT 34 + 25 

Agora vamos aprender como fazer 
contas bem mais complicadas. Voc§ 
vai ver gue o seu microcomputador 
pode achar o resultado de sentengas 
ou expressoes matemdticas, com to- 
dos os tipos de operagoes (inclusive 
multiplicagdo e divisao). 

PARA USAR O COMPUTADOR 
COMO UMA CALCULAEXDRA, PRE- 
CISAMOS SEMPRE COLOCAR UM 
COMANDO PRINT ANTES DA EX¬ 
PRESSAO MATEMATICA. 

Esse modo de operagao 6 chama- 
do de MODO DIRETO. 



ultiplica^do 
e Divisao 


^47666667 

1 

^ 0/0 



Por que o computador nao aceita 
os sinais x e +, como na Matemdti- 
ca? Voc§ mesmo pode imaginar por 
qud: 

O sinal de vezes (x) pode ser con- 
fundido com a letra x 

O sinal de dividir (-5-) nao existe no 
teclado. 

Mas por que nao posso usar o sinal 
: para a divisao? A resposta 6 igual d 
anterior: o computador o confundiria 
com dois pontos. Dois pontos e a le¬ 
tra x significam outras coisas para o 
computador, por isso nao podem ser 
usados. Certo? 



& 


Vocd jd aprendeu que usamos os si¬ 
nais + (mais) e — (menos), para orde- 
nar ao computador que faga uma so¬ 
ma ou uma subtragao. 

Isso quer dizer que o computador 
usa os mesmos sinais que aprende¬ 
mos em Matemdtica. 

Mas, para a multiplicagao e a divi¬ 
sao, a operagao 6 um pouco diferen- 
te na linguagem BASIC: 

A MULTIPLICAQAO USA O SINAL 

* EM VEZ DE X 

A DIVISAO USA O SINAL / EM VEZ 
DE- 

Por exemplo: 

Quanto 6 34 multiplicado por 5? 

Digite a linha PRINT 34 * 5 no tecla¬ 
do, e aperte a tecla NEW LINE: 

Vai dar o resultado: 170 

Outro exemplo: 

Quanto 6 14 dividido por 3? 

Digite a linha PRINT 14/3 no tecla¬ 
do, e aperte a tecla NEW LINE: 


L 


ombinando 

operates 


A linguagem BASIC consegue fazer 
contas contendo vdrias operagoes 
matemdticas misturadas: somas, sub, 
tragoes, multiplicagoes e divisoes. E 
s6 colocar na instrugao PRINT os nu- 
meros e operagoes que desejarmos, 
exatamente como em uma fdrmula. 


Por exemplo: 


Vamos fazer alguns exercicios de 
multiplicagao e divisao no computa¬ 
dor, usando a instrugao PRINT. Po- 
nha a resposta ao lado, e tambem o 
resultado da expressao (use o com¬ 
putador!): 

1. 2.5 x 4.8 

2. 1234 x 0.345 x 2 

3. 900 x 34 

4. 894 x 0.888 

5. 345 : 898 

6. 0.234:234 

7. 899 :9 
8 1:3 

9 . Uma hora tern 360 segundos. 
Qucmtos segundos tem um dia? 
Resposta: 

10. Meu pai me da Cr$ 30 000,00 de 
mesada. Quanto eu ganho por dia? 
Resposta: 

11. Invente cinco exercicios usando 
divisao ou multiplicagao de nume- 
ros: 


a. 

b. 


3 + 5/4 


Uma combinagao como esta 6 cha- 
mada de expressao aritmdtica, por- 
que tem apenas numeros e opera- 
goes aritmdticas. Existem outros tipos 
de expressoes, que voce ird apren¬ 
der depois. 

Vamos resolver um probleminna, 
como exemplo: 

Paulo tem 25 moedas de 5 cruzei¬ 
ros e 14 notas de 200 cruzeiros. Qual 
o total de dinheiro que ele tem? 


SOLUCAO 

Como em todo problema matemdti- 
co, primeiro vamos escrever a senten- 
ga que dd a solugao: 

total = 25 x 0.50 + 14 x 200 

A instrugao em BASIC para o com¬ 
putador fica assim: 

PRINT 25 * * 0.50 + 14 * 200 

Coloque no computador e veja o re¬ 
sultado. Qual foi? 


c. 

d. 

e. 


PRINT 14/3 E 
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OMOO 

COMPUTADOR 
FEZ ESSA CONTA? 


Observe que, para acertar nesta con- 
ta, precisamos primeiro fazer as mul- 
tiplicagoes: 

25x0.50 + 14x200 

1.25 + 2800 

2801.25 

Ou seja,_ existe uma ORDEM DE 
REAIJZAQAO das operagoes: a multi- 
plicagdo d sempre realizada antes de 
uma soma ou subtragao. Se tivdsse- 
mos somado antes, o resultado sairla 
errado. 

Como em Matemdtica, a lingua- 
gem BASIC tambdm faz contas se- 
guindo uma certa ordem (chamada 
ORDEM DE PRECED£NCIA, porque 
algumas operagoes devem preceder 
outras, ou seja, serem feitas antes). 
Preste bem atengao nessas regras: 

1. AS DIVISOES SAO SEMPRE FEI¬ 
TAS EM PRIMEIRO LUGAR 

2. AS MULTIPLICAQOES SAO REALI- 
ZADAS DEPOIS DAS DIVISOES 

3. AS SOMAS E SUBTRAOOES SAO 
FEITAS EM ULTIMO LUGAR 

Vamos fazer algumas contas no 
computador, usando a instrugao 
PRINT: 

1. A altura do King-Kong foi medi- 
da (depois de morto), sendo igual a 
37 pds e 8 polegadas. Ouantas pole¬ 
gadas ele tinha de altura? 

SOLUQAO: 

Um pd (no sistema norte-america- 
no de medidas) tern 12 polegadas 
Altura = 12 x 37 -I- 8 
PRINT 12 * 37 -h 8 

Coloque no computador e anote o re¬ 
sultado. Qual £ a operagao que o 
computador ird realizar primeiro? 
Resposta: 

2. O comprimento do monstro de 
Loch Ness 6 de 50 pds e 5 polegadas. 
Quantos centfmetros ele mede? 

SOLUCAO: 

Veja agora que eu tenho que fazer 
uma expressao mais diffcil. Primeiro 
eu multiplico 50 pds por 12 e somo 5, 
para ter o resultado em polegadas. 
Depois multiplico tudo por 2.54, que 
d o valor de uma polegada em centf¬ 
metros. 


Se eu fizer: 

PRINT50 * 12 + 5 *2.54 
vai dar errado, pois primeiro o compu¬ 
tador vai realizar a multiplicagao de 5 
por 2.54. Para evitar isso, posso usar 
pardnteses, como na Matemdtica: 

PRINT (50 * 12 + 5) * 2.54 

Agora vai dar certo, pois primeiro 
o computador faz as contas dentro 
dos pardnteses. Depois multiplica o 
resultado por 2.54. 

Tente fazer no computador este 
exercfcio. 

Resposta: 

3. O jogador Zico tinha 300 000 dd- 
lares no banco. Depois recebeu co¬ 
mo luvas metade de 456 784 ddlares, 
menos o imposto de 40 000 ddlares. 
Quantos cruzeiros ele terd no total? 
(Imagine que 1 ddlar valia, na dpo- 
ca, 556 cruzeiros.) 

SOLUQAO: 

O total de ddlares no banco serd: 
PRINT 300 000 + (456 784 - 40 000)/2 
ATENQAO: Como vocd jd deve ter 
notado, nao se usa nas calculadoras 
o ponto para separar centenas, mi- 
lhares etc., quando se coloca um nu- 
mero no computador. O ponto d usa- 
do pela linguagem BASIC como uma 
vfrgula (para separar a parte inteira 
da parte fraciondria de um numero). 
Esse d o sistema usado nos Estados 
Unidos, onde a linguagem BASIC foi 
inventada. 

Para obter em cruzeiros, multiplica- 
mos tudo por 556. Para formar ape- 
nas uma expressao, temos que usar 
outros pardnteses: 

PRINT (300 000 + (456 784 - 40 000)/2) 
*556 

Coloque no computador e veja 
qual d o resultado. 

Resposta: 


Agora vocd aprendeu uma coisa 
importante: 

a expressao matemAtica po- 
de conter par£nteses dentro 
de par£nteses 

e pardnteses dentro de pardnteses 
dentro de pardnteses... quantos se 
quiser usar. 

Estd vendo como d parecido com o 
uso de chaves e colchetes, que vocd 
aprendeu em dlgebra? 

S6 hd uma diferenga: o computa¬ 
dor usa sempre pardnteses. A lingua¬ 
gem BASIC nao aceita colchetes ou 
chaves. 

Por isso algumas expressoes po- 
dem ficar muito confusas, e vocd po- 
de esquecer de colocar algum pardn- 
tese, ou colocd-lo errado. 

Lembre-se da seguinte regra: 

O NUMERO de parenteses A di- 

REITA DEVE SER IGUAL AO DE PA¬ 
RENTESES A ESOUERDA. 


Depois de escrever a expressao, 
conte o numero de pardnteses. Se 
eles nao forem pares, hd um erro em 
algum lugar. 

1. Escreva a instrugao PRINT para 
as expressoes matemdticas abaixo 
(depois coloque no computador e 
anote o resultado): 

a. 4 787 : 2 + 455 x 855 

b. 12 + 34 + 45 x 0.5 

c. 34.2 + 87 : 33 

d. 35.4 + 75 - 42 

e. (12.8-5.6 9 x 45) 

2 

f. (35-7) — (45-8) x 1.7 

2 2 


2. Assinale o que estd errado nas ex¬ 
pressoes abaixo. Depois coloque no 
computador e anote o resultado. 

a. PRINT 45 * (63 - 12 

b. PRINT 83 + 45) / 22 

c. PRINT (23.45 + 34.2/8 - 3)) 

d. PRINT 34.5 * 12 - 3,44 

e. PRINT (33 - [22 * 11 ])/2 

f. 895 - 43.3 * 12 


3. Um carro tinha 25.6 litros de com- 
bustivel no tanque. Depois de uma 
viagem, ficou apenas com 17.3. Se o 
litro de gasolina custasse 1 688 cru¬ 
zeiros, quanto custaria a gasolina 
gasta na viagem? 

Resposta: PRINT 
Resultado: 

4. O Palmeiras fez 25 gols no campeo- 
nato e levou 13 gols. Cada gol a fa¬ 
vor vale 5 pontos positivos, cada gol 
contra vale 7 pontos negativos. Com 
quantos pontos f icou o Palmeiras? 
Resposta: PRINT 

Resultado: 

5. Quantos segundos tern um ano? 
Resposta: PRINT 

Resultado: 

6. Qual e a mddia das notas 5.6, 8.2 
e 7.5? 

Resposta: PRINT 
Resultado: 














Nem sempre o seu computador vai 
mostrar a resposta do modo como vo¬ 
ce quer. Preste bem atengao nos 
exemplos seguintes e entenderd por 
qud. 

Experimente colocar no computa¬ 
dor a seguinte expressao: 

PRINT 2/3 

Veja como ficou a resposta: 



Vocd deve saber que o resultado 
desta conta tern um numero infinito 
de 6 depois do ponto: 

0.66666666666666666666666... etc. 

O computador mostrou apenas 6 
casas decimals. Aldm disso, ele colo- 
cou um 7 na ultima casa decimal. Is- 
to e feito sempre que a sdtima casa 
for igual ou maior do que 5, e se cha- 
ma ARREDONDAMENTO. 

Suponha que o resultado de uma 
operagao 6 1.3411123443. O que o 
computador mostrard na tela? 

Resposta: 

Agora suponha que o resultado d 
123.5555. O que o computador mos¬ 
trard na tela? 

Resposta: 

O computador sempre vai mostrar 
um mdximo de 6 algarismos. A nao 
ser que haja menos de 6, quando 
mostrard apenas esses. 

Por exemplo: digite a instrugao: 

. PRINT 2/4 

O resultado mostrado pelo compu¬ 
tador na tela d: 

0.5 

Note que ele nao mostra: 

0.500000 

Todos os zeros depois do 5 nao sao 
mostrados. 



ungoes 

matemdticas 


Aldm das quatro operagoes aritmd- 
ticas (soma, subtragao, divisdo e mul- 
tiplicagdo), o computador consegue 
fazer outros tipos de cdlculos mais 
complicados. 

Por exemplo, se quisermos que o 
computador extraia uma raiz quadra- 
da de um numero qualquer, ele con¬ 
segue fazer isto atravds da lingua- 
gem BASIC. 


Para isso usamos uma instrugao es¬ 
pecial, chamada FUNQAO. 

No nosso exemplo, a fungao que 
queremos calcular d a raiz quadra- 
da. Em BASIC, pedimos ao computa¬ 
dor para calcular a raiz quadrada 
por meio da abreviagao SQR (que 
vem do termo SQUARE ROOT, que 
quer dizer raiz quadrada, em inglds). 
PRINT SQR 16 

Note que devo colocar as coisas 
em uma certa ordem, na instrugao: 

PRINT 6 o comando que diz ao computa¬ 
dor: mostre o cdlculo feito. 

SQR indica ao computador que o cdlcu- 
lo que eu quero fazer d uma raiz quadra¬ 
da. Este d o nome da fungao. 

16 diz ao computador qual d o numero 
do qual vai ser tirada a raiz quadrada. 
Ele d chamado argumento da fungao. 

Experimente digitar essa linha no 
computador. 

1. Para introduzir a instrugao 
PRINT, pressione a tecla P: 


I PRINT [H 


2. Para introduzir a fungao SQR, 
veja que ela estd indicada em cima 
da tecla H. Mas o cursor na tela d o 
L. Isto quer dizer que, se apertarmos 
a tecla H, aparecerd a letra H, lem- 
bra-se? Para aparecer a fungao SQR, 
devemos antes pressionar a tecla 
SHIFT, bem como a tecla NEW LINE. 

Pressione e veja o que acontece: 



O cursor mudou para F. 

Isto quer dizer que, se eu apertar a 
tecla H, aparecerd o que estd indica- 
do logo acima da tecla (a fungao 
SQR), e nao a letra H. 

Toda vez que eu quiser introduzir 
no computador uma fungao, tenho 
que transformar o cursor na tela pa¬ 
ra F. 

Isto d feito ordenando-se uma 
FUNCTION, que se consegue pressio- 
nando-se SHIFT e NEW LINE, ao mes- 
mo tempo (note que FUNCTION estd 
escrito em vermelho, acima da tecla 
NEW LINE). 

Pressione agora a tecla H, e veja o 
que acontece: 


1 PRINT SQR E 


Note que o cursor voltou a ser L no- 
vamente. 

Isto quer dizer que o computador 
estd esperando que vocd introduza o 
argumento (numero): 


PRINT SQR 16 □ 


Pressione NEW LINE e veja o resul¬ 
tado do cdlculo: 




1 0/0 


Experimente realizar no computa¬ 
dor os exercfcios abaixo. Escreva a 
instrugao PRINT e coloque o resulta¬ 
do ao lado: 

a. 25 

b. 10 

c. 100 

d. 3.14159 

e. 2 

Uma fungao matemdtica tambdm 
pode ser colocada dentro de uma ex- 
pressao aritmdtica: 

PRINT 25 + SQR 19 

O computador vai calcular primei- 
ro a fungao, antes de realizar a so¬ 
ma. Isso quer dizer que calcular uma 
fungao vem antes, na ordem de pre¬ 
cedence. 

Coloque no computador e veja o re¬ 
sultado. 

Outro exemplo: 

PRINT SQR 25 + SQR 9 

O resultado d 8, porque o computa¬ 
dor calcula primeiro o resultado das 
duas fungoes, depois soma os resulta- 
dos. 

Agora, se eu fizer: 

PRINT SQR (25 + 11) 

O resultado serb 6, certo? 

O uso dos pardnteses forgou o com¬ 
putador a fazer primeiro a conta 25 + 
11 e so depois tirar a raiz quadrada. 
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Para treinar, vamos fazer o seguin- 
te exercicio: 

Elenice atravessou um campo de 
futebol com 100 m de comprimento 
por 40 m de largura (veja o desenho 
ao lado). Quantos metros ela teve 
que andar? 

SOLUQAO: 

O problema d de geometria. Um 
tridngulo como o da figura tern a se- 
guinte expressao para calcular a hi- 
potenusa a partir dos catetos (teore- 
ma de Pitdgoras, lembra-se?): 

A 2 = B 2 + C 2 

Entao, a instrugao PRINT para re¬ 
solver o problema d simplesmente: 


4.1. Escreva os simbolos usados em 
BASIC para as seguintes operagoes 
aritmdticas: 

a. adigao 

b. subtragao 

c. multiplicagao 

d. divisao 

4.2. Por que nao sao usados os sim¬ 
bolos x e : para multiplicagao e di- 
visao em BASIC? 

Resposta: 

4.3. Numere as operagoes aritmdti¬ 
cas, de acordo com a ordem em que 
sao efetuadas, dentro de uma ex¬ 
pressed em BASIC: 

Subtragao 

Multiplicagao 

Divisao 

Adigao 

4.4. Coloque as expressoes abaixo 
em forma de PRINT: 

a. 3x2 + 2 

b. 3 x (2 + 2) 

c. 4x5-9 
d 3*2 

e. (5 + 4) x (5 : 9) - 1 

f. (5 : 9) x (3 + 2) - (1 : 2) 

4.5. Faga os seguintes exercicios uti- 
lizando o comando PRINT. Primeiro 
escreva a linha de instrugao formu- 
lando o problema, depois coloque 
no computador e anote o resultado. 



PRINT SQR (B*B + C*C) 

Veja que B*B d a mesma coisa do 
que B 2 . 

Existe tambdm uma outra manei- 
ra de representor um expoente em 
BASIC: d atravds do sinal ** (dois as¬ 
terisks). Ele estd em cima da letra 
H, e, para conseguir colocd-lo na te¬ 
la, basta apertar a tecla SHIFT junta- 
mente com a tecla H. 

Tente: 

PRINT SQR (B-2 + C-2) 

Cuidado para nao apertar a tecla 
* duas vezes: na tela vai aparecer a 
mesma coisa, mas o computador 
nao vai aceitar. Tern que apertar a 
tecla que dd dois asteriscos de uma 
vez. OK? 


teui 

a. Qual d a drea de um tridngulo 
de base 120 e altura 25? (Dica: 

Area = base x altura.) 

Resposta: 

b. Qual d a soma das dreas de um 
tridngulo de base 32 e altura 44 e 
um quadrado de lado 24? (Utilize 
apenas uma instrugao PRINT.) 

Resposta: 

c. Qual d o volume de um cubo 
com 32,8 cm de aresta? 

Resposta: 

d. Um campo de futebol americano 
mede 100 jardas. Cada jarda mede 
36 polegadas. Qual d o comprimen¬ 
to do campo em centimetros e em 
metros? (Dica: uma polegada vale 
2,54 cm.) 

Resposta: 

e. Uma motocicleta gastou 25,8 li- 
tros de gasolina em uma viagem. 
No comego da viagem o mostrador 
de quilometragem indicava 12346 

e, ao final da viagem, indicava 
13193. De quantos quildmetros por 
litro foi o consumo? 

Resposta: 

f. A circunferdncia de um circulo d 
dada pela fdrmula 2 x it x R. (R d 
o raio.) Uma bicicleta tern a roda 
com o raio de 35,234 cm. Qual d a 
circunferdncia da roda? (Dica: a 
constante tt vale 3,14159.) 


Escreva aqui embaixo o resultado: 

Resposta: 

A exponenciagao (um numero ele- 
vado a outro) d uma operagao com 
ordem de precedencia mais alta do 
que a divisao. Ou seja: 

SE HOUVER UMA LXPONENCIA- 
QAO, ELA SERA CALCULADA EM 
PRIMEIRO LUGAR 

Por exemplo: 

PRINT 2 + 3-2/3 

Dard o resultado 5, porque o compu¬ 
tador primeiro calculard 3-2 (que d 
9), depois dividird o 9 por 3 (pois a 
divisao d a que vem depois). Ai ele 
fard a soma. 

Existem muitas outras fungoes no 
BASIC, aldm da raiz quadrada. De¬ 
pois aprenderemos outras. 


Resposta: 

g. Quantas voltas por quildmetro 
dard uma roda de automdvel com 
um didmetro de 45 cm? 

Resposta: 

h. Em um tridngulo retdngulo, o 
quadrado da hipotenusa d igual d 
soma dos quadrados dos catetos. 
Supondo que a hipotenusa mede 
29,238 e um dos catetos mede 12,34, 
qual d o valor do outro cateto? 

Resposta: 

4.6. Verifique se os comandos abai¬ 
xo estao corretos. Se nao estiverem, 
coloque ao lado a forma correta. De¬ 
pois, digite no computador e escre¬ 
va o resultado ao lado. 

a. PRINT (2 * (3 + 4) - 2 

b. PRINT PRINT 

c. PRINT 84 * 1135-20*4767 

d. PRINT - 3 * - 4 

4.7. Para que servem os pardnteses 
em uma expressao matemdtica em 
BASIC? 

Resposta: 

* 

4.8. O que substitui as‘chaves e col- 
chetes de uma expressao matemdti¬ 
ca em BASIC? 

Resposta: 
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AMOS 
'PROGRAMAR O 
COMPUTADOR? 


Quando quisermos que o computa- 
dor faga algum cdlculo e mostre o re- 
sultado na tela, usamos o comando 
PRINT. Este comando, junto com a ex- 
pressao matemdtica, funciona como 
uma ordem para o computador. 

Assim, se vocd escrever no teclado 
esta instrugdo: 

PRINT 34534 + 12111 
e pressionar a tecla NEW LINE, o 
computador fard a conta e mostrard 
o resultado na tela: 



dora, atravds do MODO DIRETO. 

O computador obedece a instrugdo 
PRINT que damos a ele, e em segui- 
da "esquece" a instrugdo. 

Fazer com que o computador gra¬ 
ve a instrugao em sua memdria d a 
coisa mais simples do mundo: , 

BASTA COLOCAR UM NUMERO 
QUALOUER NO COMEDO DA INS- 

truqAo. 

Siga o exemplo: 

Se quisermos colocar na memdria 
a seguinte instrugao: 

PRINT 34534 + 12111 
basta digitar (escrever no teclado) da 
seguinte forma: 

1 PRINT 34534 + 12111 

Vamos entender juntos tudo o que 
estd contido nessa linha. 


If 


m Programa 
em BASIC 


bem. Mas, para obrigd-lo a EXECU- 
TAR O PROGRAMA (ou seja, obede- 
cer as instrugoes), eu devo usar um 
novo comando: 

RUN 

e pressionar a tecla NEW LINE. 

RUN, em inglds, quer dizer CORRA! 
Que significa tambdm: RODE O PRO- 
GRAMA. Rodar, na glria das pessoas 
que lidam com computador, quer di¬ 
zer: executar um programa que estiver 
na memdria do computador. 

Para introduzir o comando RUN, 
aperta-se a tecla R, quando o cursor 
na tela for K. Note que acima da te¬ 
cla R estd escrito RUN. 

Pressione RUN e veja o que aeon- 
tece: 


1 PRINT 34534 + 12111 


1 — & o numero da linha. Pode ser qual- 
quer ntimero; 

PRINT — 6 a instrugdo, ou comando que 
damos ao computador; 

34534 _ 6 um dos dados que fazem par¬ 
te da expressao matemdtica de cdlculo; 

+ — 6 a operagdo que queremos fazer 
(que, no exemplo, 6 a de somar); 

12H1 — 6 o outro dado da expressao de 
cdlculo. 


runH] 


E agora aperte a tecla NEW LINE: 


E SE VOC£ QUISER FAZER DE NO¬ 
VO A MESMA CONTA NO COMPU¬ 
TADOR? 

Voc6 jd sabe a resposta: 

A instrugdo precisa ser introduzida 
de novo no computador. 

Se voc6 tiver que fazer uma sbrie de 
contas repetidas, isso vai dar muito tra- 
balho, porque cada vez voc6 vai ter 
que digitar de novo as instrugoes. 

Felizmente o computador tern ME- 

mGria. 

E existe um macete para colocar 
na mem6ria dele as instrugoes que 
quisermos. Depois de termos feito is¬ 
so, ele vai se lembrar das instrugoes, 
e nao vai ser preciso digitd-las de no¬ 
vo toda vez que quisermos repetir os 
cdlculos. 

Preste bem atengao: , 

PROGRAMAR O COMPUTADOR E 
COLOCAR INSTRUGOES EM SUA 

memGria. 

Voc6 vai aprender a fazer um PrtU- 
GRAMA. 


Experimente digitar essa linha no 
computador, e apertar a tecla NEW 

LINE: 

Veja o que aconteceu: 

h 46645 



r 1 PRINT 34534 + 12111 1 


| 



■ 


L 0/i 

—- Jk 


o resultado no cdlculo apareceu na 
tela, em cima. 

Na linha de baixo, a mensagem 
0/1 significa: 


No capitulo 3, vimos que o computa¬ 
dor pode ser usado como uma calcula- 


O COMPUTADOR NAO FEZ A 
CONTA! 

Ao invds disso, ele colocou a linha 
que voc6 introduziu Id no topo da tela. 

ISSO QUER DIZER QUE ELE GUAR- 
DOU A INSTRUGAO NA MEMORIA! 

O niimero 1 significa que essa 6 a 
primeira instrugdo que queremos 
que ele obedega. Depois voc<§ vai ver 
que podemos colocar mais instrugoes 
EM UM MESMO PROGRAMA. 

Note tambdm que a instrugdo que 
estava digitada na linha de baixo da 
tela desapareceu, como se fosse car- 
regada para a parte de cima. 

E apareceu de novo o cursor K. Isso 
quer dizer que o computador estd 
pronto para aceitar mais uma ordem. 

E agora? 

Como vamos fazer para obngar o 
computador a obedecer a instrugdo 
PRINT? 

Ele guardou na memdria, tudo 


0 _ nito houve nenhum erro no pro¬ 

grama 

1_o programa parou na linha nume¬ 

ro 1 


Agora que a instrugdo estd na me¬ 
mdria do computador (no progra¬ 
ma), podemos pedir para o computa¬ 
dor executd-la novamente quantas 
vezes quisermos. Basta digitar RUN 
novamente. Experimentel 
Qual 6 o resultado? 

Pressione agora a tecla NEW LINE 
de novo. Veja o que acontece: 

O programa apareceu de novo no 

topo da tela. . . , ., 

Isto quer dizer que ele ainda esta 
na memdria. Se ele estd Id ainda, 
quer dizer que eu posso executd-lc 
novamente com outro comanac 
RUN. 

O cursor K tambdm voltou a apare* 
cer na parte de baixo da tela. 
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azendo 

Programas 


Outra vantagem de colocar as ins- 
trugoes em um programa 6 poder 
obrigar o computador a memorizar 
mais de uma instrugao. 

Da ultima vez que voce mexeu no 
computador, a tela estava assim: 


1 PRINT 34534 + 12111 1 


E 


Agora vamos colocar uma outra 
instrugao no programa. Para isso bas¬ 
tard colocar outro numero no comego 
do novo programa. Esse numero de- 
verd estar em ordem crescente, com- 
parado com o numero do programa 
anteriormente digitado. Como a ins- 
trugao anterior usou o numero 1, va¬ 
mos usar nesta o numero 2: 

2 PRINT 897 - 345 

Digite essa nova instrugao e pres- 
sione a tecla NEW LINE: 


flPRINT 34534 - 12111 
2 PRINT 897 345 


E 


Note que agora o nosso programa 
tern duas instrugoes, uma debaixo da 
outra. Por isso demos o numero 2 (or¬ 
dem crescente) d segunda linha. E 
para que o computador saiba que es¬ 
sa linha deve vir depois da outra: as¬ 
sim ele vai saber a ordem das linhas. 

Pressione RUN e NEW LINE e veja 
o resultado: 


o computador calculou e mostrou 
primeiro o resultado da linha 1 
e depois o resultado da linha 2. 



Ai estd o programa novamente. 

Outra coisa interessante de um pro¬ 
grama BASIC 6 que eu posso man* 
dar o computador rodd-lo (executd- 
lo) a partir da linha que eu quiser. 
Experimente digitar RUN 2: 


f 46645 

1 552 

i 

[^RUN 2 [l] 

_ A 


Veja o resultado: 


10/2 


O computador fez apenas a segun¬ 
da conta, ou seja, ele executou o pro¬ 
grama a partir da linha numero 2. 

SE EU NAO COLOCAR NENHUM NU- 
MERO APOS O COMANDO RUN, ele 
comega a executor um programa a 
partir da instrugao que estiver em pri¬ 
meiro lugar. 



omo Apagar 
um Programa 


Se eu quiser tirar este programa 
da memdria do computador, para co¬ 
locar outro, existe o comando: 

NEW 

NEW quer dizer NOVO, em ingles. 
Ou seja, eu quero colocar um progra¬ 
ma novo, por isso apago da memdria 
o programa velho. 


Ele sempre obedece assim aos pro¬ 
gramas: primeiro ele obedece a um 
comando e sd depois vai obedecer 
ao outro. 

Se vocd pressionar NEW LINE nova¬ 
mente, veja o que acontecerd: 


Para introduzir o comando NEW, 
deve-se apertar a tecla A, quando 
na tela estiver o cursor K. 

Experimente: 


NEW® 


E agora aperte a tecla NEW LINE. 
Note que o programa desapareceu 
da memdria. 



Vamos fazer um programa para 
entender melhor o que foi explica- 
do. O problema vai ser o seguinte: 

Vamos fazer um programa para 
mostrar na tela a tabuada de multi- 
plicar pelo numero 7. 

O programa para fazer isso deve 
ser assim: 

10 PRINT 7 * 1 
20 PRINT 7 * 2 
30 PRINT 7 * 3 
40 PRINT 7 * 4 

Coloque esse programa na memd¬ 
ria do computador. 

Voce deve estar achando estranho 
que os numeros das linhas neste pro¬ 
grama vao de 10 em 10. 

Isso nao e problema. Como ja foi 
dito, a gente pode colocar o numero 
de linhas que quiser, desde que este- 
ja em ordem crescente (ou seja, os 
numeros das linhas que vem depois 
tern que ser cada vez maiores). Exis¬ 
te uma vantagem em colocar os nu¬ 
meros de linha de 10 em 10 ou de 20 
em 20, em vez de 1 em 1, como no 
primeiro programa. Depois voce vai 
entender por que. 

Por enquanto, introduza o progra¬ 
ma como estd aqui. 


fl0PRINT 7*1 

1 20 PRINT 7*2 

30 PRINT 7*3 

40 PRINT 7*4 


1 E 

k_ 

_ 1 


E pressione a tecla RUN. O resulta¬ 
do mostrado na tela serd: 


r 7 

1 

14 


21 


1 28 


^0 40 



Apareceu tudo de uma vez, uma 
multiplicagao em cada linha. 
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orrigindo 
o Programa 


* 


O programa que estd colocado na 
mem6ria pode ser modificado quan- 
tas vezes eu quiser. 

Existem maneiras de colocar mais 
linhas, digitar de novo uma linha (se 
eu errei ou quero mudd-la), e atd 
apagar uma linha. 

Essas sao chamadas fungoes de 
edigao do BASIC. 

Observe que eu posso colocar 
mais linhas NO FINAL do programa, 
se eu quiser: 


50 PRINT 7 * 5 
Pressione RUN. 

O que aconteceu? 


10 PRINT 7*1 
20 PRINT 7*2 
30 PRINT 7*3 
40 PRINT 7*4 
50 PRINT 7*5 


E 


Se uma linha do programa na me- 
m6ria estiver errada, ou se eu quiser 
mudd-la, basta escreve-la de novo, 
comegando com o mesmo numero 
da linha: 



Vamos supor que eu quero a linha 
50 mudada para: 

50 PRINT 7 * 6 

Experimente digitd-la assim, e 
pressione NEW LINE. Veja o que 
acontece: 


RINT 7*1 

20 PRINT 7*2 

30 PRINT 7*3 

40 PRINT 7*4 

1 50 PRINT 7*6 

==1 

L®__ 



A linha 50 foi SUBSTHUIDA por 
uma nova. A linha 50 antiga sumiu. 

Posso tambdm colocar novas instru- 
goes NO MEIO do programa que estd 
na memoria. 

Suponhamos que eu quero ver tam- 
bdm o resultado de 7 vezes 2,5 (apa- 
recendo na tela entre 7 x 2 e 7 x 3). Ex¬ 
perimente digitar a linha. 

25 PRINT 7 * 2.5 
E pressione a tecla NEW LINE: 


RINT 7*1 

20 PRINT 7*2 

25 PRINT 7*2.5 

30 PRINT 7*3 

40 PRINT 7*4 
| 50 PRINT 7*6 


l® 



Agora pressione a tecla RUN: 




7 


1 14 

1 

17.5 


21 


28 

• 

42 


i 1/50 

-^ 


O COMPUTADOR COLOCA A LI¬ 
NHA DE INSTRUQAO NA ORDEM 
CERTA 

Agora voce entendeu qual d a van- 
tagem de numerar as linhas de 10 
em 10. Deixando urn "espago" entre 
elas, eu posso mais tarde colocar 
uma ou mais linhas de instrugao en¬ 
tre elas. 

Isso se chama INSERIR LINHAS. 

Outra coisa interessante que posso 
fazer d apagar uma linha sem preci- 
sar apagar todo o programa. 

Com o programa da tabuada na 
memdria, experimente digitar ape- 
nas o numero de linha 25 e pressione 
NEW LINE: 

Pressionando de novo NEW LINE, 
vocd ve que a linha 25 desaparece. 

Pressione RUN e me diga qual foi o 
resultado: 

Resposta: 



5.1. O que se deve fazer para colocar uma ins- 
trugao na memdria do computador? 

5.2. O que acontece quando nds digitamos 
uma linha de instrugao que comega com um 
numero? 

5.3. O que acontece quando nds digitamos no 
computador uma linha de instrugao que nao 
comega com um numero? 

5.4. Define com suas proprias palavras o que 
d um PROGRAMA: 

5.5. Cite duas vantagens de poder colocar um 
programa na memdria do computador: 

5.6. Para que servem os comandos: 

RUN 

NEW 

PRINT 

5.7. Por que devemos numerar em ordem cres- 
cente as linhas de um programa? 

5.8. Faga de conta que voce d o computador, 
e alguem colocou na sua memdria o progra¬ 
ma abaixo: 

10 PRINT 2 * 3/2 

20 PRINT (233 - 33)/10 


r Is S T Is 


Agora responda as perguntas abaixo, sobre 
este programa. 

Mas lembre-se: nao vale testar no computa¬ 
dor. Faga de conta que voce d o computador! 

Como apareceria o resultado na tela, se o 
computador receber o comando RUN? 



Como apareceria o resultado na tela, se o 
computador receber o comando RUN 20? 



Como ficaria o programa na memdria, se 
for introduzida a linha: 


E como ficaria o programa, se agora fa 
digitado apenas o numero: 

30 (NEW LINE) 

Qual serd o novo resultado, se o compu 
dor receber o comando RUN novamente? 


r - 


v_ 

_ J 


AGORA COLOQUE ESSES EXERCICIOS: 
COMPUTADOR E VEJA SE CONFERE. 

5.9. Faga um programa para calcular e s 
trar na tela a tabuada de multiplicar do. 
mero 9: 


5.10. Faga um programa para calcular qa 
tos segundos tern um ano, e quantos diast 
um periodo de 14 anos. 



























rogramas 
Que Fazem 
Contas 


2. Uma motocicleta gastou 25.8 litros 
de gasolina em uma viagem. No co- 
mego da viagem o contador de quilo- 
metragem indicava 12346 e, ao final 
da viagem, indicava 13193. De quan- 
tos quil6metros/litro foi o consumo? 

soluqAo 


Vamos fazer agora alguns exerci- 
cios utilizando o comando PRINT den- 
tro de programas. 

Para isso, vamos programar alguns 
exemplos do TESTE do capitulo 3: 


1. Um campo de futebol americano 
mede 100 jardas. Cada jarda mede 36 
polegpdas. Oual d o comprimento do 
campo em centimetros e em metros 
(dica: uma polegada vale 2,54 cm) 

SOLUQAO: 

10 PRINT 100*36*2.54 
20 PRINT (100 * 36 * 2.54)/100 
RUN 

A linha 10 vai dar a solugao em 
centimetros, e a linha 20 em metros 
(100 jardas vezes 36 polegadas vezes 
2,54 cm dividido por 100, para dar a 
solugao em metros). 


Resposta: 


10 PRINT (13193 - 12346)/25.8 
RUN 


Resposta: . 

3. A circunferdncia de um drculo d 
dada pela fdrmula 2 x it x R. O slm- 
bolo tt vale 3.14159; e o R d o redo da 
circunferdncia. Uma roda de bicicle- 
ta tern o raio de 35,234 cm. Qual d a 
dreunferdneia da roda? 

SOLUQAO: 

10 PRINT 2 *3.14159 * 35.234 
RUN 


Resposta: . 

4. Quantas voltas por quildmetro da- 
rd uma roda de automdvel com did- 
metro de 45 cm? 


soluqAo 

10 PRINT 100 * 1000/(3.14159 * 45) 
RUN 


Resposta: 


O numero de centimetros contidos 
em um quildmetro d 100 x 1000. 

A circunferdncia de um drculo 6 
igual a tt x didmetro. 

Dividindo o numero de centimetros 
em um quildmetro pela dreunferdn- 
da, teremos o numero de voltas da- 
das em um quildmetro. 

5. Em um tridngulo retangulo, o qua- 
drado da hipotenusa 6 igual d soma 
dos quadrados dos catetos. Supondo 
que a hipotenusa mede 29,238 e um 
dos catetos mede 12,34, qual 6 o va¬ 
lor do outro cateto? 

SOLUQAO: 

10 PRINT SQR (29.238 2 - 12.34 

** 2 ) 

RUN 

Resposta: . 
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A 


COMPUTADOR 

TAMBEM 

ESCREVE 


At6 agora, voc§ viu que podemos 
usar a instrugao PRINT para mostrar nu- 
meros na tela do computador, de modo 
direto ou em um programa. O coman- 
do PRINT tamfcxkn serve para calcular 
expressoes matemdticas e mostrar, ao 
mesmo tempo, o resultado. 

Agora vamos aprender como pro- 
gramar o computador para que ele 
escreva letras na tela. 

Se conseguirmos fazer com que o 
computador escreva letras, tambdm 
poderemos conseguir que escreva no- 
mes, tltulos e mensagens, certo? 

Uma instrugao PRINT tambdm po- 
de ser usada para escrever letras (A, 
B, C, D... etc.), e outros sinais espe- 
ciais (& % $ \ e outros). As letras, nii- 
meros e sinais especiais sao chama- 
dos de CARACTERES. 


A letra A 6 um caractere. 

O cifrao ($) tambdm 6 um caractere. 


PRINT "AL6, EU SOU O 
COMPUTADORR" 



Mesmo se voc§ tivesse colocado al¬ 
go errado (ou um palavraol): 


E o espago em branco tambdm 6 
um caractere (tecla SPC, que quer di- 
zer ESPAQO, e tern o mesmo efeito 
que aquela barra da parte de baixo 
do teclado da mdquina de escrever). 

£ muito simples fazer o computa¬ 
dor escrever alguma coisa. 

Basta colocar entre aspas a MEN- 
SAGEM que n6s queremos que ele 
escreva. 

Assim: 


Experimente digitar esta linha no 
computador: 


PRINT "AL6,EU SOU O 
COMPUTADOR" 


Ao computador nao interessa o 
que voc& poe entre aspas. 

Pode ser atd em turco ou em italia- 
no. Ele reproduz como estd. 


PRINT "HELLO, HOW ARE YOU?" 


Podemos colocar mensagens em 
uma instrugao PRINT, tanto de modo 
direto (linha sem numero no come- 
go), quanto em um programa (linha 
com um numero no comego). 

Vamos fazer um programinha. 

Primeiro pressione a tecla NEW pa¬ 
ra "limpar" a memdria. 

Introduza agora o seguinte 
programa: 

10 PRINT "AL6, como vai voc£?" 

20 PRINT 

30 PRINT "EU SOU O 
COMPUTADOR TK 85" 

40 PRINT "E EU TAMBIlM SEI 
ESCREVER" 


Vocd jd aprendeu que o computa¬ 
dor d meio "burro". 

Ele sd faz uma coisa de cada vez. 

Primeiro, ele obedece o comando 
numero 10, depois o 20, depois o 30. 

Veja agora o que acontece, se vo- 
cd pressionar a tecla RUN: 


ALO, COMO VAI VOCE? 


EU SOU 0 COMPUTADOR TK 85 
E EU TAMBEM SEI ESCREVER 


Usando espagos (como o da linha 
20, que fica "em branco" e como os 
da tecla SPC, que separa as pala- 
vras entre si), eu posso colocar onde 
quiser, na tela, alguma mensagem 
ou tltulo: 


10 PRINT "COMPUTADOR TK 85" 


Todos os espagos colocados na 
mensagem entre aspas sao mostra- 
dos na tela do computador. 



isturando 
Nomes e 
Numeros 


Usar palavras entre aspas dentro 
de uma instrugao PRINT 6 muito util 
para dar um tltulo ds respostas dos 
cdlculos feitos pelo computador. 

A instrugao PRINT permite a vocd 
misturar mensagens com expressoes, 
na ordem que quiser. 

Vamos dar um exemplo: 

Quantos segundos existem em um 
ano? 

Esse programa vocd jd fez: 

10 PRINT 60 * 60 * 24 * 265 

O computador vai mostrar este re¬ 
sultado, quando vocd pressionar a te¬ 
cla RUN: 


^ 31^536 000 


[ 0/10 



Vocd sabe o que significa esse nu¬ 
mero sozinho Id na tela, certo? Afinal, 
foi vocd quern resolveu o problema.', 



Sj 


1. Faga um programa para escrever na tela o seu nome e o de sua escola. 
Resposta: 


E aperte NEW LINE: 

Viu? 

O computador escreve na tela exa- 
tamente o que vocd escreveu entre 
aspas. 
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2. Faga um programa para colocar seu nome bem no meio da tela, na linha de cima. 
Resposta: 







Mas os programas de computador 
sao feitos tambdm para uso de outras 
pessoas. Por isso d bom colocar tftulos 
para explicar os resultados na tela. 

Veja como fica bem melhor assim 
o programa: 

10 PRINT "UM ANO TEM"; 60 * 60 * 

24 * 365; "SEGUNDOS." 

Vamos analisar as partes desta 
instrugao: 

10 d o numero da linha 

PRINT a instrugao para mostrar o 

que vem depois 

"UM ANO TEM" deve aparecer 
primeiro esta mensagem 
; => serve para separar a mensa¬ 
gem do que vem depois 
60 * 60 * 24 * 365 => cdlculo do nume¬ 
ro de segundos em um ano 
; => serve para separar o numero re- 
sultante da palavra 
"SEGUNDOS." outra mensagem 

Experimente digitar o programa no 
computador. Pressione a tecla RUN e 
veja o que acontece: 


fUM ANO TEM 
I (31 536 000 SEGUNDOS) 


[ 0/10 


Viu como funciona direitinho? 

EM UMA INSTRUQAO PRINT N6S 
PODEMOS COLOCAR QUANTOS Tt 
TULOS, EXPRESSOES E NUMEROS 
OUISERMOS. 

A unica condigao d que eles este- 
jam separados uns dos outros por 
meio de espagos. 

Vocd aprendeu que o ponto e vlrgu- 
la (;) d usado para separar os elemen¬ 
ts (partes) de uma linha de impres- 
sao PRINT. 

USANDO O ; NO LUGAR DE SPC, 
AS PARTES DA LINHA DE IMPRES- 
SAO VAO ESTAR UNIDAS UMAS 
NAS OUTRAS. 

Ou seja, elas serao mostradas na 
tela sem ter entre si um espago em 
branco. 

Experimente que diferenga faz es- 
tes trds comandos PRINT: 

10 PRINT "3 VEZES 2IGUAL A"; 6 

20 PRINT "3 VEZES 2 IGUAL A "; 6 

30 PRINT "3 VEZES 2 IGUAL A "; 6 

Digite este programa no computa¬ 
dor e veja o resultado quando pres- 
sionar a tecla RUN: 


3 VEZES 2 IGUAL A6 
3 VEZES 2 IGUAL A 6 
3 VEZES 2 IGUAL A 6 


Quando pomos vdrias mensagens 
em seguida na mesma instrugao 
PRINT, podemos fazer com que elas 
aparegam grudadas umas nas ou¬ 
tras ou nao. Tente digitar as seguin- 
tes linhas de modo direto: 

PRINT "RENATO"; "REJANE" 

PRINT "RENATO "REJANE" 

PRINT "RENATO"; " REJANE" 

PRINT "RENATO" REJANE" 

Responda: qual a diferenga entre 
os resultados impressos destas li¬ 
nhas? 


OS ESPAQOS EM BRANCO DEN- 
TRO DAS DUAS ASPAS TAMB£M 
SAO IMPRESSOS. 


I mprimindo 
■ Onde Eu 
P Quero 


Depois de saber para que serve o 
ponto e vlrgula no comando PRINT, d 
fdcil entender como podemos impri- 
mir qualquer mensagem ou resulta¬ 
do em um ponto qualquer da tela. 
Vamos mostrar um exemplo: 

Eu quero imprimir na tela uma li¬ 
nha contendo o nome de um time de 
futebol (no comego da linha), depois 
a cidade de onde ele 6 (comegando 
na posigao numero 15 da linha), e 
quantos pontos ele tern (comegando 
na posigao numero 25 da linha). 

Pondo vdrios times assim, vai se 
formar uma tabela bonitinha, com to- 
das as colunas alinhadas, certo? 

PALMEIRAS SAO PAULO 12 

GUARANI CAMPINAS 9 

PONTE PRETA CAMPINAS 7 

£ claro que nds podemos fazer li¬ 
nhas PRINT assim: 

10 PRINT "PALMEIRAS SAO PAULO 
12 " 

20 PRINT "GUARANI CAMPINAS 9" 

30 PRINT "PONTE PRETA CAMPINAS 

7" 


Mas d claro que assim hd muito 
desperdfcio de espagos'em branco. 

Cada letra, numero ou espago que 
colocamos dentro de uma mensagem 
PRINT ocupa uma unidade a mais de 
memdria no computador. 

Como o computador nao tern mui- 
ta memdria, ds vezes d importante 
economizd-la. 

Outra coisa aborrecida neste mdto- 
do d que temos que digitar um monte 
de brancos repetidos. Isso demora e 
sempre apresenta erros (contamos o 
numero errado de brancos). 

PARA CONTAR ESPAQOS EM 
BRANCO ENTRE DUAS MENSA¬ 
GENS OU NUMEROS, EXISTE UMA 
FUNQAO ESPECIAL EM BASIC 

Lembra-se das fungoes? 

O exemplo que nds demos foi da 
raiz quadrada (SQR): vocd fomece 
um numero (o argument), e a fun- 
gao calcula outro (a raiz quadrada). 

Agora vamos estudar a fungao 
TAB. 

(Procure onde ela fica no teclado. 
Lembre-se de que d preciso transfor¬ 
mer antes o cursor em F, pressionan- 
do SHIFT E NEW LINE). 

Ela nao calcula nada: apenas colo- 
ca onde quisermos os elementos de 
uma instrugao PRINT. 

Por exemplo: 

PRINT TAB 10;"VIDEO GAME" 

Vai escrever a mensagem: 


VIDEO GAME 


comegando na posigao 10 da linha, 
quando o comando PRINT for obede- 
cido. 

Dizemos que houve uma TABULA- 
QAO atd a coluna (ou posigao) 10. 

Veja como ficaria melhor o nosso 
programa de exemplo: 

10 PRINT "PALMEIRAS"; TAB 1$: 
"SAOPAULO"; TAB 25; 12 
"20 PRINT "GUARANI"; TAB 15; 
"CAMPINAS"; TAB 25;7 
30 PRINT'PONTE PRETA"; TAB 15; 
"CAMPINAS"; TAB 25;5 

9 

Digite o programa no computador 
(nunca se esquega de pressionar a te¬ 
cla NEW UN£ se antes jd tiver algum 
programa na memdria, que possa 
apagd-lo). 

Veja como o resultado d iddntico 
ao programa anterior. 
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E voc6 aprendeu algumas coisi- 
nhas agora: 

1. A FUNgAO TAB NAO CALCULA 
NADA (NAO £ MATEMATICA) 

2. O ARGUMENTO DE TAB INDICA 
EM OUE COLUNA VAI COMEGAR A 
MENSAGEM 

3. POSSO COLOCAR VARIOS TAB 
NUMA MESMA LINHA 

4. A FUNQAO TAB FUNCIONA SO- 
MENTE PARA UMA LINHA NA TELA 

Uma outra coisinha: o argumento 
da fungao TAB tambdm pode ser 
uma expressao matemdtica. Por 
exemplo: 

PRINT TAB (45 - 3*2);"MEU NOME" 

que 6 calculado pelo computador 
e vale a mesma coisa que: 

PRINT TAB 39;"MEU NOME" 

Note que temos que usar par§nte- 
ses quando a expressao 6 constitulda 
por letras. 

Agora, para nao usar de modo er- 
rado o comando TAB, 6 importante 
saber o seguinte: 

UMA UNHA NA TELA DO TK 85 TEM 
AT£ 32 COLUNAS 

Por isso, nao 6 bom colocar um nu- 


Vamos fazer agora alguns exercl- 
cios simples. 

Vamos pegar alguns exemplos de 
EXERCICIOS anteriores de cdlculo, 
usando o PRINT, e vamos colocar al¬ 
guns titulos para melhorar a manei- 
ra como o computador mostra os re- 
sultados na tela. 

Para cada programa seguinte, pro¬ 
cure fazer vdrias linhas: umas con- 
tendo os dados do problema, e ou- 
tras os resultados. 

1. Um carro tinha 45.5 litros de com- 
bustivel no tanque. Depois de uma 
viagem ficou apenas com 10.0. Eu ti- 


mero maior que 32 como argumento 
de TAB: 

Nao funciona colocar vdrios TAB 
numa mesma linha, mas com argu- 
mentos que sejam menores do que 
os que vinham antes. 

Por exemplo: 

PRINT TAB 12;"IOAO E"; TAB 5;"MA- 
RIA" 

Experimente no computador para 
ver o que acontece. 

Resposta: 


Existe tambdm uma outra maneira 
mais simples de separar as partes 
misturadas de um comando PRINT, 
por meio de tabulagoes: 6 usando a 
vlrgula. 

A diferenga entre o ponto e vlrgula 
e a vlrgula 6 que esta tabula, na ho- 
ra da impressao, a mensagem ou re- 
sultado, comegando na coluna 16 na 
tela. 

Vamos seguir estes exemplos: 

PRINT "RENATO","REJANE" 

Vai aparecer assim na tela: 


RENATO REJANE 



nha gasto Cr$ 12 400,00 para encher 
o tanque de 50 litros. Quanto custou 
o litro de gasolina e quanto custou a 
gasolina gasta na viagem? 

Resposta: 


Resultado: 


2. Qual 6 a mddia das notas 4.5, 8.6, 
3.2 e 7.0? 

Resposta: 


Note que RENATO estb comegando 
na coluna 1 da primeira linha, e RE- 
JANE na coluna 16 da mesma linha. 

A vlrgula funciona como TAB 16. 
Agora outro exemplo: 

PRINT "COMPUTADOR",TK 85", 
"FUNCIONA" 

Vai aparecer assim na tela: 


COMPUTADOR TK 85 
FUNCIONA 


O que aconteceu? 

A primeira vlrgula colocou TK 85 
na coluna 16 da primeira linha. 

A segunda vlrgula iria colocar 
mais 16 espagos de tabulagao (o que 
daria 32). 

Mas como a linha s6 tern 32 colu- 
nas, a palavra FUNCIONA foi para a 
primeira posigao da linha seguinte! 

Podemos usar a vlrgula para brin- 
car um pouco: 

PRINTTUPERAMA", LEGAL",, TK 
85" 

Veja que duas vlrgulas sem nada 
entre si, valem dois TAB 16. 


Resultado: 


3. Um campo de futebol americano 
mede 100 jardas. Cada jarda mede 
36 polegadas. Qual 6 o comprimento 
do campo em centlmetros e em me¬ 
tros (dica: uma polegada vale 2,54 
cm)? 

Resposta: 


Resultado: 
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TESTS 


6.1. Digite no computador: 

I. PRINT -3 * -4 

a. PRINT"MEU NOME E". "DANIEL" 

a. PRINT 8 * 6 

b. PRINT"8 * 6" 

c. PRINT"8 * 6 =";8 * 6 

g. PRINT"CONTAS DE SOMAR 


Qual foi o resultado em cada caso? 

b. PRINT TAB 25;''TESTE",,, "ESPA- 

Explique a diferenga: 


CIAL" 

6.2. Para que servem a virgula e o 

h. PRINT"COMPITADOR 

c. PRINT TAB 12;12;TAB 28;28 

ponto e virgula dentro de uma de- 

6.6. Usando a fungao TAB, escreva 


claragao PRINT? 

uma instrugao PRINT para colocar a 


6.3. Qual 6 a utilidade de se mistu- 

palavra COMPUTADOR exatamen- 
te no centro da linha da tela. 

6.11. Responda se e verdadeiro (V) 

rar mensagens entre aspas e resul- 


ou falso (F): 

tados num6ricos ou expressoes ma- 

6.7. Escreva uma instrugao PRINT 

( ) A fungao TAB nao calcula ne- 

tematicas em um comando PRINT? 

para colocar na tela os numeros de 

nhuma fungao matematica. 


1 a 8, distribuidos em duas colunas, 

( ) So se pode colocar um TAB em 

6.4. Quais sao as dimensdes da tela 

assim: 

cada instrugao PRINT. 

do TK 85: 


( ) A virgula usada para separagao 

numero de linhas: 

1 2 

em PRINT funciona como TAB. 

numero de colunas: 

3 4 

( ) TAB quer dizer tabulagao. 

Para que serve a ultima linha de 

5 6 

( ) Posso usar a fungao TAB com 

baixo na tela? 

7 8 

um numero maior do que 32. 


Resposta: 

6.12. Faga um programa para colo¬ 

6.5. Verifique se os comandos abai- 


car na tela uma lista de 3 times de 

xo estao corretos. Se nao estiverem. 


futebol, numerada. Por exemplo: 

coloque ao lado a forma correta. De- 


1 PALMEIRAS 

pois, digite no computador e escre- 


2 BOTAFOGO 

va o resultado ao lado. 


3 FLAMENGO 


6.8. Responda: TAB e: 

Resposta: 

a. PRINT (2 * (3+4)-2 

a. comando 


b. PRINT PRINT 

b. fungao 

c. programa 

d. nao existe em BASIC 



6.9. Para que serve a fungao TAB? 

6.13. Faga um programa para colo¬ 

c. PRINT 84 * 1135-20 * 4767 


car um sinal -I- em cada canto da te¬ 

d. PRINT "TK";85;"C" 

6.10. Faga de conta que voce 6 o 

la (dica: use o comando PRINT AT). 

e. PRINT "CURSO DE COMPUTA- 

computador. Como ficara a tela do 
computador, depois de obedecer ele 
as instrugoes seguintes? 


DORES" 






Pois bem. Siga as flechinhas abai- 
xo. Voc6 6 o computador. 

10 PRINT "RENATO" 


I 



20 GOTO 10 
A primeira vez que eu pressionar a 
tecla RUN, o que acontece? 

O computador obedece a instrugao 
na linha 10, e escreve na tela: 


b. Se vocd quiser que o programa 
continue a ser executado, procure on- 
de fica o comando CONT. Ele signifi- 
ca CONTINUE: vocd estd dizendo a 
ele para continuar. 

O que acontece? 

A tela fica escura, e depois o pro¬ 
grama continua a repetir a linha 10. 

c. Quando vocd estiver cansado de 
ver o programa continuar, ao apare- 
cer a mensagem 5/10 pressione a te¬ 
cla NEW LINE: 



R epetindo 
Coisas 


Outro dia eu me convenci de que 
devia escrever quatro vezes meu no- 
me na tela do computador. 

O programa para fazer isso 6 fdcil, 
nao acha? 

10 PRINT "RENATO" 

20 PRINT "RENATO" 

30 PRINT "RENATO" 

40 PRINT "RENATO" 

O computador vai obedecer assim: 


RENATO 

RENATO 

RENATO 

RENATO 


0/40 


Faga a mesma coisa com o seu no- 
me e veja o resultado! 

Eu tambdm poderia ter escrito as- 

IMPRINT "RENATO RENATO RENA¬ 
TO RENATO" 

Em vez de aparecer tudo na verti¬ 
cal (um nome em cada linha), ia apa¬ 
recer tudo na horizontal, certo? 

Pois bem. E se eu quiser encher a 
tela inteira com o meu nome? 

Nao responda jd: preste bem aten- 
gao. 

A tela tern 21 linhas. Eu teria que 
colocar no programa 21 instrugoes 
PRINT, todas iguais. 

Daria muito trabalho, nao 6? 

EU POSSO ORDENAR AO COMPU¬ 
TADOR QUE REPITA UMA UNHA DE 
PROGRAMA QUANTAS VEZES EU 
QUISER. 

Basta mandar que ele "volte" atd a 
linha PRINT. 

Assim: 

10 PRINT "RENATO" 

20 GOTO 10 

A instrugao GOTO, em inglds, 
quer dizer: VA PARA 
Portanto, GOTO 10 quer dizer: VA 
PARA A UNHA NUMERO 10! 

Como 6 que isto faz o computador 
repetir a linha 10? 

Lembra-se de que eu disse que o 
computador obedece (executa) uma 
linha de cada vez? E que ele s6 exe¬ 
cuta a linha seguinte depois de fazer 
o que a linha anterior diz? 


\ RENATO 




Em seguida ele vai obedecer a li¬ 
nha 20, que diz a ele: 

VA PARA A UNHA 10 
E ele, bonzinho, volta para Id e exe¬ 
cuta de novo a linha 10: 

’ E de novo: 




fRENATO 

RENATO 

_ 


Atd preencher a tela toda! 


RENATO 

RENATO 

RENATO 

RENATO 

RENATO 

RENATO 


Quando ele preenche a tela, apare- 
ce na ultima linha a mensagem: 

5/10 

Isso quer dizer que o computador 
parou na linha 10, acusando uma 
mensagem numero 5. 

A mensagem numero 5 significa: 

NAO HA MAIS ESPAQO NA TELA 

(veja a lista de mensagens de erros 
no fim da obra, onde estd explicado o 
que significa cada uma delas). 

Agora o computador vai ficar espe- 
rando que vocd decida o que fazer: 
a. Se vocd quiser ficar lendo ou admi- 
rando a tela escrita, ele espera. 


f 10PRINT "RENATO"; 
20GOTO 10 


L 


aparece de novo o programa que es- 
tava na memdria. 

Uma outra maneira de interromper 
o programa (parar de executar), en- 
quanto ele estiver ainda escrevendo 
as linhas, d pressionar a tecla 
BREAK. 

BREAK em inglds quer dizer QUE- 
BRAR ou INTERROMPER. 

Veja onde fica a palavra, acima 
da tecla NEW LINE. 

Por isso voce precisa pressionar ao 
mesmo tempo a tecla SHIFT e a tecla 
NEWLINE. 

Esta tecla BREAK s6 funciona en- 
quanto o programa ainda nao pa¬ 
rou, ao chegar ao final da tela. 

Faga agora um programa para es¬ 
crever seu nome em toda a tela (um 
nome em cada linha): 


Como fazer para escrever o nome 
em toda a tela, mas um depois do ou¬ 
tro (vdrios em cada linha da tela)? 


Experimente este: 

10 PRINT "RENATO"; 
20 GOTO 10 

Qual foi o resultado? 
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Note que este programa tern duas 
coisas diferentes do outro: 

1. existe um espago em branco entre o 
fim do nome (letra O) e a ultima aspa. 

2. existe um ; no final da linha 10. 

Para explicar o que aconteceu d 
fdcil: 

colocando um ; no final da linha 
10, a prdxima vez que o computador 
repeti-la, o nome aparecerd unido ao 
anterior. 

Lembra-se de que o ponto e vfrgu- 
la serve para separar as partes de 
uma instrugao PRINT, que queremos 
que aparegam unidas? 

Aqui tambdm funciona deste jeito. 

Se eu nao puser um ; no final da li¬ 
nha PRINT, a prdxima vez que o com¬ 
putador obedecer outro PRINT, ele 
passard a escrever na linha de bai- 
xo, e assim por diante. 

Coloquei o espago em branco de- 
pois do nome RENATO para nao apa- 
recer assim na tela: 

RENATORENATORENATORENATO- 
RENATORENATO etc. 

Experimente colocar o seu nome 
ou entao com uma frase assim: 

10 PRINT "MARIO E O MAIORAL"; 

ou entao: 



3. O que faz este programa? 

110 PRINT TAB 16; T' 
125 GOTO 110 
Resposta: 


4. O que ha de errado com este pro¬ 
grama? 

40 PRINT "PROGRAMA BASIC"; 

55 GOTO 45 

Que mensagem de erro vai apare- 
cer, se voce colocar esse programa 
no computador e executa-lo? 


1. Faga um programa para colocar 
na tela as palavras TIC e TAC, uma 
em cada linha, atd encher toda a te¬ 
la, assim: 


rr 


TIC 


TAC 


TIC 


| TAC 


• 


I • 


! • 

L 

_ Ji 


Resposta: 


10 PRINT "JOAOZINHO QUER NAMO- 
RAR MARIA"; 


B esenhando 
na Tela 


Agora vocd vai ver que o computa¬ 
dor TK-85 tambdm pode ser usado pa¬ 
ra desenhar uma porgao de coisas 
na tela, atravds da programagao. 

Essa maneira de desenhar grdfi- 
cos especiais d chamada de MODO 

grAfico. 

E ele funciona de uma maneira 
muito simples: d tambdm com a ins- 
trugao PRINT. 

Se vocd olhar bem o teclado, ve- 
rd que na parte de cima de algu- 
mas teclas existem uns desenhos en- 
gragados. 

Eles sao chamados de CARACTE- 
RES ou BLOCOS GRAFICOS. 

N6s temos no teclado os seguintes 
blocos: 


TECLA GRAFICO 
1 

2 

3 

4 

5 

6 

7 

8 

O 

W 

E 

R 

T 

Y 

A 


2. Modifique o programa para escre¬ 
ver toda a tela, mas com as pala¬ 
vras TIC e TAC unidas. 

Resposta: 


5. O que faz este programa? 

100 GOTO 100 

Como devo fazer para interromper 
o programa, neste caso? 


S 

D 


Baa 

mill 




H 


UHnQHnnHsaidBHBa 




































Se vocd prestar bem atengao, pode- 
rd ver que eles correspondem aos pe- 
dacinhos de um quadrado dividido 
em quatros partes, combinados de di- 
versas maneiras: 

H* ,c 

Alguns dos blocos grdficos tam- 
bdm tern partes cinza (pontinhos bem 
pequenos e prdximos). 

Com estes blocos grdficos podemos 
montar uma sdrie de desenhos inte- 
ressantes: 

um aviaozinho 


um loguete 


um dado 


Veja como d fdcil! 

Para colocar dentro de uma instru- 
gdo PRINT os blocos grdficos, eles de- 
vem estar dentro de aspas. Coloque 
a seguinte linha de programa (pres- 
sione NEW antes): 




10 PRINT" E 



Para poder digitar os blocos grdfi¬ 
cos, devemos mudar o cursor L (le- 
tras) para G (grdficos). 

Isto e feito pressionando-se simulta- 
neamente as teclas SHIFT e 9. Veja 
que estd escrita a palavra GRA¬ 
PHICS em cima do rdtulo da tecla 9. 
Isso quer dizer GRAPICOS em portu- 
gues, certo? 

Note que, quando voce fizer isso, o 
cursor muda para G: 



a tecla SHIFT e uma tecla contendo 
um bloco grdfico, ele aparecerd na 
tela. 

Experimente digitar SHIFT e a te¬ 
cla W: 


10 PRINT" Im[g] 


Depois SHIFT 6, SHIFT W e SHIFT 6 
de novo: 



Veja que estd se formando uma fi- 
gura, porque os blocos grdficos ficam 
grudados (o que nao acontece com 
as letras). 

Para colocar as aspas no final, te- 
mos que sair do MODO GRAFICO. 

Apertamos entao as teclas SHIFT e 
9 novamente: 



Veja que agora conseguimos fazer 
um aviaozinho. 

Tente fazer, como exerdcio, as ou- 
tras figuras mostradas logo no come- 
go desta ligao! 

O modo grdfico tambem pode ser 
usado para escrever as letras e ou- 
tros caracteres em cor preta sobre o 
fundo branco, ao invds de como apa- 
recem normalmente na tela. 

Esta maneira de escrever se deno- 
mina MODO INVERSO, ou caracte¬ 
res em campo invertido. 

Vamos dar um exemplo: 

Suponha que eu quero escrever o 
nome deste computador bem no 
meio do topo da tela, em caracteres 
in versos. Assim: 


[2 HE HE 



Veja que o cursor mudou de novo 
para L. 

Agora sim pressione aspas e de¬ 
pois NEW LINE. 

Pressione RUN para ver o que 
acontece: 



Para conseguir # isso, voce deve 
usar o MODO GRAPICO para escre¬ 
ver o nome. So que nao deve pressio- 
nar a tecla SHIFT antes, como no ca- 
so dos blocos grdficos. Pressione as 
teclas das letras que voce quiser colo¬ 
car normalmente: 

Comece digitando: 

10 PRINT TAB 10," 



Depois pressione SHIFT junto com 
a tecla 9 para mudar o cursor para G 
(GRAPHICS): 


Colocando vdrias linhas de progra¬ 
ma alinhadas, os blocos grdficos das 
linhas de cima se grudam com os de 
baixo: 


Agora tudo o que voce digitar pelo 
teclado aparecerd de forma diferente. 
Pressionando AO MESMO TEMPO 


10 PRINT TAB 10; “ H 

















Agora pode digitar as letras TK 85: 


^10 print “ HHEEJeL 


Viu como saiu direitinho? 

Agora pressione SHIFT e 9 juntos 
novamente, para mudar o cursor pa¬ 
ra L, e digite o sinal de aspas do final 
e pressione NEW LINE: 


fl0 PRINT “ TK 85” 


E 


Pressione RUN e veja o que acon- 
tece! 


1. Faga de novo o exercicio de escre- 
ver TIC e TAC na tela, com um pro- 
grama (lembra-se? TIC em uma li- 
nha e TAC em outra). Sd que desta 
vez TIC deve aparecer em caracteres 
normals (letras brancas em {undo 
preto) e TAC em caracteres inversos 
(letras pretas sobre fundo branco). 
Resposta: 


2. Faga um programa para colocar 
no topo da tela uma moldura assim, 
com seu nome no meio dela. Experi- 
mente com diversos caracteres grdfi- 
cos atd achar uma moldura bem bo- 
nita: 

Resposta: 


3. Vamos fazer um programa para 


desenhar uma tapegaria na tela. E 
muito fdcil: 

Coloque em primeiro lugar uma ins- 
trugao PRINT contendo 7 ou 9 blocos 
grdficos diversos, um grudado no ou- 
tro (entre aspas). Depois coloque 
uma instrugao GOTO para repetir 
este PRINT. 

Pressione RUN e aprecie o resul- 
tado! 


Coloque diferentes combinagoes de 
blocos grdficos para testar qual vai 
ser a tapegaria mais bonita. Escreva 
o programa que produziu a mais bo¬ 
nita aqui: 



TUTS 

—————”H 

7.1. O que significa para o computa- 

7.5. Modifique o programa anterior 


dor quando ele estd mostrando na 

para colocar a cabega do palhago 


tela os seguintes cursores: 

no lado direito da tela (dica: use a 


fungao TAB em todas as linhas 


K 

PRINT). 


L 


GRAPHICS 

F 


FUNCTION 


7.6. Por que eu devo fazer o cursor 

SHIFT 

G 

voltar a ser L antes de digitar as as¬ 
pas no final de uma instrugao 


7.2. Defina o que quer dizer: 

PRINT com blocos grdficos? 

BREAK 

MODO GRAFICO 


SPACE 

MODO INVERSO 

7.7. Vamos rememorar. Para que 

CONT 

7.3. Que teclas devemos apertar pa¬ 

servem as teclas: 

E para que servem as instrugoes e 

ra conseguir digitar os blocos grdfi¬ 

NEW LINE 

RUBOUT 

fungoes (de um exemplo de cada). 

cos (cursor G)? 

PRINT 

7.4. Faga um programa para dese¬ 
nhar na tela a figura de uma cabe- 

RUN 

TAB 

ga de palhago dando risada. 

NEW 


SQR 
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sando Variaveis 
dentro de um 
Programa 


Agora que vocd percebeu a utilida- 
de das varidveis para armazenar da¬ 
dos e resultados intermedidrios, va- 
mos ver alguns exemplos com progra- 
mas. Digite no computador cada urn 
dos programas abaixo, e veja o resul- 
tado Procure substituir alguns valo- 
res para obter diferentes resultados. 

1. Dados dois numeros, A e B, faga 
um programa para obter o resultado 
da soma, subtragdo, multiplicagao e 
divisao entre os dois. 


pressione simultaneamente SHIFT e 
NEW LINE, depois pressione a tecla 
da letra H. 

10 LET L= 10 

30 L print' 5 problema DO retAn- 
GULO" 

40 PRINT' = = = = = = = = = - 

60 PRINT’O COMPRIMENTO DO LA- 

DO = "' L „ - A 

70 PRINT"A ALTURA = ;A 
80 PRINT 

90 let Area = l*a 

100 LET DLAG = SOR L**2 + A**2 

i io print" Area =" ; Area 

120 PRINT’DIAGONAL = ;DIAG 
Pergunta: As linhas 90 e 100 sao ne- 
cessdrias? Por qud? 


SOLUgAO 

Note que das linhas 30 a 60 existe 
uma diferenga entre o que estd entre 
aspas (6 uma mensagem) e o que es¬ 
td fora das aspas (d uma expressao). 
O que 6 mensagem 6 mostrado na te¬ 
la exatamente como estd. O que 6 ex- 
pressdo 6 usado para calcular. 


10 LET A=25 
20 LET B=12 
30 PRINT'A + B =" 
40 PRINT'A - B =" 
50 PRINT"A x B =" 
60 PRINT'A / B =" 


A+B 

A-B 

;A*B 

;A/B 


Pergunta: Qual 6 a vantagem de 
se colocar primeiro os dados (no ca- 
so, 25 e 12) dentro de varidveis? 



Area = A.L 
d = Va 5 + l 


L 


aixinhas 
para Nomes 


Atd agora vimos que a mem6na 
do computador pode ser usada para 
armazenar numeros. Esses numeros 
podem ser o resultado de uma ex- 
pressao matemditiccr. 


LETC = 23 + (25.7-14.2V13 





1 Refaga os seguintes exercicios do 
capitulo 3, usando varidveis: 

1 1. A altura do King Kong 6 igua 
a 37 pds e 8 polegadas. Quantas po- 
legadas e quantos metros ele tinha 
de altura? 

Resposta: 


Neste exemplo, C 6 o nome da cai- 
xinha" ou memdria que receberd o 
resultado da conta, d direita do sinal 
de igualdade. 

Outra maneira de colocar um va¬ 
lor numdrico em uma varidvel d por 
meio de uma constante: 


LET PI = 3.1415 


2. Dados o lado (L) e a altura (A) de 
um retdngulo, faga um programa pa¬ 
ra calcular a drea e o compnmento 
da diagonal. 


1 2 O iogador Zico tinha 300 000 d6- 
lares no banco. Depois recebeu co¬ 
mo luvas metade de 456 784 ddlares, 
menos o imposto de 40 000 ddlares 
Quantos cruzeiros ele terd no total 
(faga a conta como se o ddlar vales- 
se 2 800 cruzeiros. Repita o cdlculo 
como se o ddlar valesse 6 000 cruzei- 
ros). 

Resposta: 


13 Um carro tinha 25.6 litros de 
combustivel no tanque. Depois de 
uma viagem ficou apenas coni 17.J. 
Quantos litros foram gastos. Quan¬ 
to custou a viagem, se o htro de ga¬ 
soline custa 1.000 cruzeiros? Quanto 
ele economizaria em litros e cruzei¬ 
ros se o carro gastasse 20% menos. 
Resposta: 


Neste exemplo, PI d o nome da va¬ 
ridvel. O numero d direita do sinal 
de igualdade nao contdm nenhuma 
operagdo matemdtica ou nome de va¬ 
ridvel, por isso d chamado de cons- 
tante. 

Mas nao sdo sd numeros que o 

computador consegue armazenar 

PODEMOS GUARDAR L fITlAS E 
OUTROS CARACTERES NA MEMO- 
R1A DO COMPUTADOR 
Para isto, o BASIC do seu computa¬ 
dor nos permite usar "caixinhas es- 
peciais, que servem para guardar na 
memdria conjuntos de letras e de ou- 

tros caracteres. r-TFRFc; 

UM CONJUNTO DE CARACTERES 

t CHAMADO DE CADEIA 
Outro nome muito usado para des- 
crever um conjunto de caracteres d 
"string", uma palavra inglesa que 

significa "corddo". __ 

Vocd jd viu antes cadeias de carac 

teres, lembra-se? 

Por exemplo, no comando: 


PRINT "RENATO" 


Neste caso, a cadeia d uma pala¬ 
vra formada de 6 caracteres. 


R, E, N, A, T e O. 


solucAo 

Temos que usar as fdrmulas corres- 
pondentes ao cdlculo da drea e da 
diagonal de um retdngulo (veja a fi 

9U Em BASIC, a exponenciagao d obti- 
da com o operador ** (ele tern uma 
tecla especial: nao se ixxie apertaf a 
tecla * duas vezes, pois haverd erro 
no resultado. A tecla * to.«JJ 
da letra H). A raiz quadrada d obtida 
com a fungdo SQR: para digitd-la, 


1.4. A idade de uma pessoa d igual 
a A anos, M meses e D dias. Calcule 
quantos meses, dias e horas es 
pessoa jd viveu, aproximadamente. 
Resposta: 


Mas uma cadeia pode incluir outros 
caracteres. Pode ser umafrase. 

PRINT "O BRASIL TEM 120 MI- 

LHOES DE HABITANTES" 

ou, entdo, pode ser uma mistura de 

caracteres: 

PRINT "+% *** =8" 


ou caracteres grdficos: 

PRINT "i_ 
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Como podemos dizer ao computa- 
dor que queremos armazenar uma 
cadeia de caracteres em uma varid- 
vel da memdria? 

Preste atengao: 

LET N$ = "RENATO" 

Este comando LET estd dizendo pa¬ 
ra o computador: 

GUARDE A CADEIA DE CARACTE- 
RES (ENTRE ASPAS) NA VARlAVEL 
CHAMADA N$ 

O sinal de cruzeiro ($), tambdm 
chamado de cifrdo, serve para indi¬ 
car ao computador que a varidvel d 
do tipo alfabdtico (ou seja, deverd ar¬ 
mazenar letras e outros caracteres). 

, Note que, se vocd esquecer de p6r 
o sinal $ depois do nome da varidvel, 
o computador vai "estrilar"! 

Experimente digitar no compu¬ 
tador: 

LET N = "RENATO” 

Veja o que aparece na tela: 


r - 


V_ 

_ j 


Experimente fazer o mesmo, na for¬ 
ma de um programa, assim: 

10 LET N = "RENATO" 
e depois digite RUN. O que acontece? 


memdria (as caixinhas mostradas 
nos desenhos) para armazenar nu- 
meros. 

Para armazenar nomes, a coisa d 
um pouco mais complicada, mas tam- 
bdm d fdcil de ser entendida. 

Vejamos: a memdria do microcom- 
putador d feita de tal forma que com- 
porta apenas um caractere (uma le- 
tra, por exemplo) em cada caixinha. 
Assim, o nome RENATO seria guar- 
dado em 6 caixinhas agrupadas que 
receberiam a "etiqueta" (nome da va¬ 
ridvel) N$. 

O computador permite que tenha- 
mos atd 255 caixinhas agrupadas pa¬ 
ra guardar uma cadeia de caracte¬ 
res, todas recebendo um unico nome 
de varidvel. 

Assim, podemos armazenar ca- 
deias de caracteres de qualquer com- 
primento (atd um mdximo de 255), 
sem nos preocupar com quantas cai¬ 
xinhas o computador vai usar. Isto 
ele faz automaticamente. 

LET A$ = "N ABUCODONOSOR 


ERA UM REI ASSIRIO CRUDEUS- 
SIMO" 

LETB$ ="OLA!" 

LET C$ =” 

(O que diz este ultimo comando?) 

O IMPORTANTE t COLOCARMOS 
OS CARACTERES ENTRE ASPAS 

Para descobrir que a cadeia de ca¬ 
racteres estd armazenada em uma 
varidvel alfabdtica, podemos usar o 
comando PRINT. Por exemplo, digite 
o seguinte programa no computador: 
10 LET NOMES ="MICKEY MOUSE" 

20 PRINT NOMES$;"ERA UM RATO!" 

Veja o que vai acontecer, se vocd 
der o comando RUN: 

Vamos entender juntos este pro¬ 
grama, linha a linha: 

Linha 10 => armazena a constante 
"MICKEY MOUSE" na varidvel 
NOMES 

Linha 20^mostra na tela o conteu- 
do de NOMES, seguido da constante 
alfabdtica "ERA UM RATO!", ambos 
na mesma linha. 


A mensagem de erro estd indican- 
do que os tipos ndo combinam, ou 
seja: 

- a varidvel d esquerda de = d do ti¬ 
po numdrico 

* a constante d direita de = d do tipo 
alfabdtico 

O mesmo erro ocorreria se vocd 
tentasse o contrdrio: 

10 LET NS = 123 
O que estd errado nesta linha? 



omo o 

Computador 
Armazena 
um Nome? 


No comego deste capltulo, vimos 
que o computador usa unidades de 



1. Escreva abaixo o comando que 
vocd daria ao computador, para ar¬ 
mazenar o nome do seu time de fu- 
tebol na varidvel chamada TIMES. 

2. O que o computador mostrard na 
tela com este programa? 

10 LET FLORS = ”ROSA" 

20 PRINT"UMA"; FLOR$;"£ UMA"; 
FLORS 



E o que vai acontecer, se eu trocar 
a linha 10 por: 

10 LET FLORS ="MARGARIDA" 


3. E este programa, o que vai mos- 
trar na tela? 

10 LET PLANETAS = "MARTE" 

20 LET PLANETAS = "JUPITER" 

30 PRINT PLANETAS 
Explique por qu§: 


4. Agora diga o que aparecerd na te¬ 
la com este programa: 

10 LET COMIDAS ="ARROZ" 

20 LET ALMOgOS = "COMIDAS 
30 PRINT'NO ALMOgO VAI TER"; 
ALMOgOS 
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N umeros e 

NOMES PELO 
TECLADO 


Atd agora, aprendemos a armaze- 
nar numeros (e nomes), dentro de um 
programa, usando o comando LET. 

Vamos fazer, por exemplo, um pro¬ 
grama que armazene a idade e o no- 
me de uma pessoa, em duas varid- 
veis, e depois calcule quantos dias 
ela viveu, aproximadamente. 

Este programa poderia ser assim: 

10 LET ANOS = 14 

20 LET NOMES = "ROBERTO" 

30 PRINT NOMES;"VIVEU MAIS 
DE"; ANOS * 365;"DIAS" 

Depois de digitar este programa no 
computador: 


fl0LET ANOS = 14 
20 LET NOMES =“ROBERTO” 


^30 PRINT NOME$;“VIVEUj] 


Damos o comando RUN, para ver 
o resultado: 


If ROBERTO VIVEU MAIS DE 
5110 DIAS 


0/30 


O programa 6 muito interessante, 
mas hd um problema. 

O que devemos fazer se quiser- 
mos colocar a idade e o nome de 
uma outra pessoa para fazer o mes- 
mo cdlculo? 

Vocd jd sabe a resposta: 

SEM ALTERAR A LINHA 30, DIGITA- 
MOS DE NOVO AS LINHAS 10 E 20 

Assim, por exemplo: 

10 LET ANOS = 37 

20 LET NOMES ="0 PROFESSOR 

RENATO" 

O programa agora vai mostrar na 
tela: 


0 PROFESSOR RENATO I 
VIVEU MAIS DE 1305 DIAS 


J 


O problema 6 pequeno, 6 verda- 
de, mas, se a classe toda e todos os 
amigos do seu irmaozinho quiserem 
fazer a mesma coisa, vai dar muito 
trabalho. Deve haver um jeito mais 
fdcil do que ficar sempre mexendo 
no programa! 

Felizmente, este jeito existe: 6 o co¬ 
mando INPUT. 

Este comando substitui o LET, per- 
mitindo que um valor (numero ou no¬ 
me) seja fornecido ao programa pelo 
teclado, sem haver necessidade de 
modificar o programa. 

Preste bem atengao como o progra¬ 
ma acima seria modificado: 

10 INPUT ANOS 
20 INPUT NOMES 

A linha 30 ficaria igual: 


10 INPUT ANOS 
20 INPUT NOMES 
30 PRINT NOMES; “ VIVEU 
MAIS DE ”; ANOS *365; 

“ DIAS ” 



O comando INPUT na linha 10 sig- 
nifica a seguinte ordem para o com¬ 
putador: 

ESPERE ALGUIlM ESCREVER UM 
NUMERO NO TECLADO, E GUAR- 
DE-O NA VARlAVEL ANOS 
O comando INPUT na linha 20 sig- 


ESPERE ALGU^M ESCREVER UM 
NOME NO TECLADO, E GUARDE-O 
NA VARlAVEL NOMES 
Vamos ver agora qual o resultado 
deste programa. Digite RUN: 



O computador parou e mostrou na 
linha de baixo o cursor [I] 

Isto nao quer dizer que o programa 
nao funcionou (senao apareceria 
uma mensagem de erro, ou o cursor 
K), significa que o computador encon- 
trou a linha 10, e estd obedecendo ao 
comando INPUT, ou seja, parou para 
que voc6 digite um numero. 

Tudo o que vocd digitar vai apare- 
cer na linha onde estd o cursor QT] 


1 13 m 


Depois de ter digitado o numero 
que deseja, pressione NEW LINE ou 
ENTER. 

Note que aparece de novo o cur¬ 
sor L na linha de baixo, agora entre 
aspas. 

Isto significa que o computador de¬ 
ve estar esperando a entrada de 
uma cadeia de caracteres, na linha 
20 do programa. Digite um nome: 



e pressione a tecla NEW LINE. Agora 
o programa guardou o nome na va- 
ridvel correspondente, e vai para a li¬ 
nha 30, fazendo o cdlculo e mostran- 
do o resultado: 


PAULO VIVEU MAIS DE 
4745 DIAS 


10*0 


Entendeu? 

Para repetir o programa, basta di¬ 
gitar de novo a tecla RUN, e tudo se 
repete. Tente colocar vdrias idades e 
nomes para ver o que acontece. 

Melhor ainda, adicione ao progra¬ 
ma acima a linha: 

40 GOTO 10 

Desta forma, o programa ficard se 
repetindo indefinidamente. Depois 
de entrar a idade e o nome, ele vai 
mostrar o resultado na tela, e pedir 
nova idade, e assim por diante: 

ARNALDO VIVEU MAIS DE 4380 
DIAS 

JOAQUIM VIVEU MAIS DE 5110 
DIAS 

FERNANDA VIVEU MAIS DE 6570 
DIAS 

O programa sd vai parar quando a 
tela ficar cheia. Neste caso, aparece 
a seguinte mensagem, na tiltima li¬ 
nha da tela: 

5/30 

que quer dizer: PAREI COM A TELA 
CHEIA NA UNHA 30 
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Para continuar o programa, basta 
pressionar a tecla marcada com o co- 
mando CONT (continue), que limpa 
a tela e reinicia tudo de novo na pri- 
meira linha. 

Como parar o programa antes que 
a tela fique cheia? 

Experimente pressionar a tecla 
BREAK. 

Nao funciona quando o cursor [E] 
estd aparecendo, certo? 

0 unico jeito d pressionar a tecla 
marcada STOP, e, em seguida, a te¬ 
cla NEW LINE. 

Se o cursor [L] estiver entre aspas, 
s6 pressionar STOP nao resolverd. 

E necessdrio antes apagar as as¬ 
pas da esquerda, para que o compu- 
tador nao pense que o STOP e ape- 
nas uma cadeia de caracteres. 

D ialogando 
com o 

Computador 


Os comandos INPUT e PRINT permi- 
tem escrever programas de CONVER- 
SACpAO, ou seja, uma espdcie de 
"didlogo" entre o computador e o 
usudrio. 

Veja, por exemplo, este simpdtico 
programa: 

10 PRINT'OLA, EU SOU O MICRO- 
COMPUTADOR DE QUE MEU DONO 
TANTO FALA" 

20 PRINT 

30 PRINT''OUAL E O SEU NOME?" 

40 INPUT N$ 

50CLS 

60 PRINT"MUITO PRAZER,"; N$ 

70 PRINT"TENHO CERTEZA DE QUE 
VOCE VAI GOSTAR DE MIM" 

Na tela o didlogo apareceria assim: 


(OLA, EU SOU 0 ^ 

MICROCOMPUTADOR DE 
QUE MEU DONO TANTO FALA 

QUAL E 0 SEU NOME? 

“MARCELO E” 

LlT Jl 


[MUITO PRAZER, MARCELoTl 
TENHO CERTEZA QUE VOCE jj 
VAI GOSTAR DE MIM I 


070 


Voce pode imaginar muitos "didlo- 
gos” como este. 

Experimente! 



STRUTURANDO 
O PROGRAMA 


Sabendo os comandos INPUT, LET 
e PRINT, vocd jd consegue fazer mui- 
tas coisas com o computador. Todos 
os problemas que tern a seguinte for¬ 
ma: 

— fornecer dados conhecidos para 
um problema 

— procurar o resultado a partir 
destes dados, usando uma ou mais 
fdrmulas 

— mostrar o resultado 

podem ser programados facilmente 
em BASIC, usando o computador. 

Nesta segao, vamos aprender co¬ 
mo estruturar um programa deste ti- 
po, e vamos programar vdrios exem- 1 
plos e exerclcios, para fixar bem a 
maneira de fazd-lo. 

Voce poderd aplicar a mesma re- 
ceita para programas que vocd mes- 
mo vai bolar depois. 


n comando 
REM 


Uma coisa muito importante para 
quern deseja aprender a fazer bons 
programas d a documentagao. O 
que d isso? 

A medida que os programas que 
vocd faz vao ficando cada vez mais 
compridos, comega a ficar dificil en- 
tendd-los. Mesmo que tenha sido vo¬ 
cd que os escreveu, depois de alguns 
meses pode acontecer que nao se 
lembre mais para que servem algu- 
mas partes do programa. 

A linguagem BASIC tern um co- 
mando cuja unica fungao d ajudar o 
programador a colocar explicagoes 
em linguagem corrente dentro de um 
programa. Essas explicagoes sao cha- 
madas de DOCUMENTAGAO INTER¬ 
NA DE UM PROGRAMA. 

Esse comando se chama REM. 

REM significa REMARK, em ingles, 
que quer dizer COMENTARIO. 

O comando REM nao tern nenhu- 
ma outra serventia aldm de colocar li- 
nhas escritas, com alguma explica- 
gao ou comentdrio, dentro de um pro¬ 
grama. Portanto, ele nao e um co¬ 
mando EXECUTAVEL, ou seja, nao d 
executado pelo computador, como os 
comandos LET e PRINT, por exemplo. 


O comando REM d escrito da se¬ 
guinte maneira: 

23 REM COMENTARIO 

Depois do comando REM, na mes¬ 
ma linha, podemos colocar o que qui- 
sermos (inclusive caracteres grdficos). 

O comando REM d util para muita 
coisa: 

— identificar o nome do progra¬ 
ma, quern o escreveu, em que data 
etc. Esta parte do programa geral- 
mente e colocada no comego, e d 
chamada de CABEQALHO DO PRO¬ 
GRAMA. Quando voce tiver muitos 
programas gravados em fita, vocd sa- 
berd como esse cabegalho d necessd¬ 
rio para evitar confusoes... 

— verificar para que servem as va- 
ridveis dentro do programa 

— ‘identificar as diferentes segoes 
de um programa 

—. colocar linhas de separagdo en¬ 
tre as partes de um programa 

Todos esses recursos sao uteis para 
facilitar a leitura e o entendimento de 
um programa, tanto para vocd como 
para os outros. Vocd entenderd me- 
lhor a utilizagao do REM no progra¬ 
ma abaixo: 

PROBLEMA 

Fazer um programa para converter 
ddlares em cruzeiros, d taxa do dia: 

soluqAo 

A maneira mais fdcil e direta de fa¬ 
zer este programa seria: 

20 INPUT TAXA 

40 INPUT VALOR 

60 LET CRUZ = TAXA * VALOR 

80 PRINT CRUZ 

90 GOTO 40 

Como vocd percebe, o programa 
solicita apenas uma vez, na linha 20, 
a taxa atual do ddlar (e a armazena 
na varidvel TAXA). Depois solicita a 
entrada do valor em cruzeiros (e a ar¬ 
mazena na varidvel VALOR, na li¬ 
nha 40). Finalmente, calcula, na li¬ 
nha 60, e mostra o resultado, em cru¬ 
zeiros, na linha 80. A linha 90 faz o 
programa perguntar o novo valor em 
cruzeiros, para ser convertido, e as¬ 
sim por diante, ate pressionarmos a 
tecla STOP. 

Este programa e bem simples, mcfs 
tern as tres partes fundamentals de 
qualquer programa de resolugao de 
problemas: 

— ENTRADA (linhas 20 e 40) 

— CALCULO (linha 60) 

— SAIDA (linha 80) 

Note que a pessoa que for usd-lo 
precisa saber para que ele serve, 
pois o programa nao dd nenhuma 
"dica” sobre isto, sobre quj valores 
devem ter entrada, e quando, etc. 

Por isso, um programa realmente 
util tern comandos com mensagens 
de instrugoes para o usudrio, e verifi- 
cagao dos resultados. Veja como fica 
muito melhor assim: 









10 PRINTTAXA ATUAL DO DOLAR? 

20 INPUT TAXA 

30 PRINT'VALOR EM DOLARES? 

40 INPUT VALOR 

60 LET CRUZ = TAXA * VALOR 

80 PRINT'VALOR EM CRUZEIROS = ; 
CRUZ 

90 GOTO 30 , 

Veja que o programa meinora oas- 
tante, pois informa ao usudrio que va- 
lores ele tem que digitar, e depois ex¬ 
prime o resultado com uma mensa- 
gem de esclarecimento. Na tela fica 
assim: 

para completar o nosso programa, 
vamos colocar todos os comentdrios 
com os comandos REM, documentan- 
do-o adequadamente: 


de que precisamos lembrar, quando 
formos usd-lo: 

1. O comando REM nao 6 uma or- 
dem para o computador. Tudo o que 
estiver escrito nele (inclusive coman¬ 
dos vdlidos em BASIC) fica como que 
invisfvel para o computador e visfvel 
sd para vocd. 

2 Os comandos REM ocupam espa- 
co de memdria no computador. Se o 
programa for muito longo e nao cou- 


ber na memdria, d necessdrio limitar 
o numero de REMs ou tird-los. 

3. Se vocd vai desenvolver um pro¬ 
grama muito longo, tome como hdbi- 
to ir escrevendo os comentdrios REM 
em seu interior d medida que vai di- 
gitando as linhas de comandos. 

4. Os comentdrios REM nao sao a 
unica forma de documentagao. De¬ 
pois veremos outras. 


2 REM * PROGRAMA CONVERTE - 

3 REM • R.SABBATIN1 * 

4 REM * 12. SET. 84 * 


****************** 


■ ENTRADA DE DADOS 


c 


onclusoes 

sobre o REM 


TESTS 


5 REM 

6 REM 

7 REM ’ 

10 PRINTTAXA ATUAL DO EX!)LAR? 

20 INPUT TAXA 
25 PRINT TAXA . 

30 PRINT'VALOR EM DOLARES? 

40 INPUT VALOR 
45 PRINT VALOR 
54 REM 

50 REM *** CALCULO *** 

60 LETCRUZ = TAXA * VALOR 

64 REM _ 

65 REM *** RESULTADO *** 

66 REM 
70 PRINT 

80 PRINT'VALOR EM CRUZEIROS = ; 

CRUZ 

90 GOTO 30 . 

Note que foram adicionadas as se- 
guintes linhas: 

1 a 5 0 cabegalho 

6 a 8, 54 a 55 e 64 a 66 t> identified- 
cao das segoes 

25 e 45 0 mostram na tela os valo- 
res de entrada, para melhor referdn- 

C1 0 programa acima 6 bastante legi- 
vel e de fdcil modificagao, mesmo 
por quern nao o desenvolveu As se- 
goes de entrada, cdlculo e satda sao 
facilmente identifiedveis. 


n1 n( . COISSA 

8.1. Defina. wi'i 

CONST ANTE . 4DAUU& 

VARlAVEL NUMERICA 

VARlAVELALFABETICA . resultado vai mostrar o 

CADEIADECAKACTERES ^ programa abato? 

(Explique por que, para cada linha 

8.2. Qual 6 a vantagem principal de P^NTL 
~ udlto. v^dvei, «. u» progra- 10 ITT A-125 

ma BASIC. 3Q LET c= ^ 

. 40 PRINT A,B,C 

.. 50 LET C=A+B 

. 60 LET D=A 

60 LET D=D+1 

8.3. Para que servem os comandos: 70 PRINT A,C,D 

LET . 

INPUT . 87 Escreva um programa que per- 

REM . g U nte o seu nome e depois encha a 

tela com ele. 

8.4. Marque com V se a afirmativa 
for verdadeira, e com F, se for falsa: 

() o comando REM 6 interpretado e 
executado pelo computador 
() os comandos REM de um progra¬ 
ma nao ocupam a memdria 
( ) o comando INPUT pode ser usa- 
do sem uma varidvel 
() o comando INPUT pode ser usado 
para entrada de numeros e nomes 
( ) quando o computador encontra 
um comando INPUT, interrompe o 
processamento de um programa e 
fica esperando uma entrada 
() o comando INPUT solicita dados 
pelo teclado 

() o comando LET serve apenas pa¬ 
ra fazer cdlculos 


o comando REM 6 muito util, como 
voed viu. 

Entfetanto existem algumas coisas 


8.5. Assinale quais os nomes de va- 
ridveis que sao corretos (C) e erra- 
dos (E) e explique por que: 

TK 85 
1983 

ABCD123 
COISAS 


8 8 Faga um programa para entra¬ 
da de tres notas pelo teclado, e de¬ 
pois calcule a soma e a media sim¬ 
ples das notas. Coloque tambdm o 
nome do aluno. 

8 9. Qual e a vantagem principal de 
se usar o comando INPUT em um 
programa em BASIC? 

8.10. Cite tres utilidades do coman¬ 
do REM em um programa: 

1 . 

2 . 

3. 

8 11 Quais sao as tres partes princi¬ 
pals de um programa para resolver 
um problema de cdlculo? 

1 . 

2 . 

3. 
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OLUQAO DOS PROGRAMAS PROPOSTOS 


Abaixo, a solugao dos programas propostos no capitulo 5 deste livro. 


7 IE $ 7 I: 


PAGINA 21 

6.12. Faga um programa para colocar na 
tela uma lista numerada de tres times de 
futebol. Por exemplo: 

1 PALMEIRAS 

2 BOTAFOGO 

3 FLAMENGO 

Resposta: 

\4 PRINT "1", "PALMEIRAS" 

24 PRINT "2", "BOTAFOGO" 

34 PRINT "3", "FLAMENGO" 

4 4 STOP 


6.13. Faga um programa para colocar um 
sinal + em cada canto da tela (dica: use o 
comando PRINT AT). 

Resposta: 

1 4 PRINT AT 1,1/ " + " 

24 PRINT AT 1,31, " + " 

30 PRINT AT 20,1, " + " 

40 PRINT AT 20,31, " + " 

50 END 


c 

li i 

B 

B 

IT 

□ 

■o 
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1. Faga um programa para colocar na tela 
as palavras TIC e TAC, uma em cada li- 
nha, ate encher toda a tela. 

Resposta: 

10 PRINT "TIC" 

20 PRINT "TAC" 

30 GOTO 10 


2. Modifique o programa acima para es- 
crever em toda a tela, mas com as pala¬ 
vras TIC e TAC unidas. 

Resposta: 

10 PRINT "TIC" 

20 PRINT "TAC" 

30 GOTO 10 


T E $ 7 i 
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8.7. Escreva um programa que pergunte o 
seu nome, e depois encha a tela com ele. 

Resposta: 

l(j PRINT "QUAL E O SEU NOME?" 

2d INPUT NOME $ 

3d CLS 

4d PRINT NOME $; ’’ 

5d GOTO 4d 

8.8. Fag a um programa para entrada de 
tres notas pelo teclado, e depois calcule a 
soma e a media simples das notas. Colo- 
que tambem o nome do aluno. 

Resposta: 

Id REM ******************** 

2d REM * MEDIA DE 3 NOTAS * 

3d REM **..♦***♦.******.*** 

4d REM 

5d REM * * * ENTRADA DAS NOTAS * * * 


6d REM 

65 PRINT "CALCULO DE MEDIA" 
68 PRINT 

7d PRINT "ENTRE 3 NOTAS:" 

8d INPUT N1 

90 PRINT "NOTA 1 = N1 
ldd INPUT N2 

lid PRINT "NOTA 2 = N2 
115 INPUT N3 

12d PRINT "NOTA 3" = ; N3 
13d REM 

14d REM *** CALCULA SOMA E 
MEDIA *** 

15d REM 

16d LET SOMA = N1 + N2 + N3 
17d LET MEDIA = SOMA/3 
18d REM 

19d REM * * * MOSTRA RESULTADO * 
2dd REM 
2ld PRINT 

22d PRINT "SOMA = SOMA 
23d PRINT "MEDIA = MEDIA 
24d STOP 


31 













Exemplo de execucao: 


^CALCULO DA MEDIA ENTReI 
TRES NOTAS: 


fcALCULO DA MEDIA ENTRE^ 
TRES NOTAS: 1 

NOTA 1=8 

NOTA 2 = 9 

L® J 


I® J 


[CALCULO DA MEDIA ENTRE V 
'TRESNOTAS: 


digiteal. 8 nota 


CALCULO DA MEDIA ENTRE 
TRESNOTAS: 

NOTA 1 = 8 
NOTA 2 = 9 




digite a 3. a nota 




r n 

[CALCULO DA MEDIA ENTRE 


CALCULO DA MEDIA ENTRE 

TRESNOTAS: 


TRESNOTAS: 1 

| NOTA 1 = 8 


NOTA 1=8 

NOTA 2 = 9 


7 

NOTA 3 = 4 

I® ' . J 


L _ J 



[ CALCULO DA MEDIA ENTRE 
TRESNOTAS 
NOTA 1 = 8 
NOTA 2 = 9 
NOTA 3 = 4 
SOMA = 21 
, MEDIA = 7 

1 9/24$ 


digite a 2. a nota 


resultados 
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C ABELA DE CODIGOS INDICADORES DE ERROS 

Apresentamos abaixo uma tabela completa com to- 
dos os cddigos indicadores de erros que podem apa- 
recer durante a digitagao ou a execugao de um pro- 
grama. Lembre-se que este codigo sempre aparece na 
linha de baixo da tela,mostrando tambem o numero da 
linha em que ele ocorreu. Exemplo: 

5/15 

Significa: ocorreu o erro numero 5, na linha 15. 

0 erro numero 5 significa: nao ha mais espago na 
tela para continuar a listagem. Na coluna SITUA- 
QOES voce podera ver com quais comandos pode 
ocorrer este erro. No nosso exemplo, pode ocorrer 
com PRINT, LIST etc. 

Algumas vezes, a tabela tambem indica o que fazer 
para sair do erro. No caso do erro numero 5, voce de- 
vera digitar o comando CONT para limpar a tela. 


CODIGO 

SIGNIFICADO 

situaqoes 

0 

Nao houve erro. 

Execugao bem sucedida ou salto 
para uma linha de maior numero 
que qualquer outra existente. 

Qualquer 

1 

A variavel de controle nao existe 
(nao foi estabelecida por uma 
instrugao FOR), mas existe uma 
outra variavel com o mesmo no- 
me. 

NEXT 

2 

A linha indicada usa uma varia- 
vdl nao definida previamente por 
uma instrugao LET ou INPUT. 

Para matrizes isso acontecerd se 
estas forem usadas antes de ser 
dimensionadas pela instrugao 

DIM. E, para uma variavel de 
controle, isso ocorrera caso ela 
for usada antes de ter sido defini¬ 
da como variavel de controle por 
uma instrugao FOR, e se nao 
houver nenhuma variavel sim¬ 
ples com o mesmo nome. 

Qualquer 

3 

A matriz nao contem o elemento 
especificado. 

Caso o fndice estej a fora de faixa 
(isto a, seja negativo ou acima de 
65535), ocorrera o erro B. 

Matrizes 

4 

Espago insuficiente na memdria. 
Observe que o numero de linha 
na indicagao (apos o /) podera 
estar incompleto na tela, devido 
a falta de memdria; assim, por 
exemplo, 4/20 podera surgir co¬ 
mo 4/2. 

LET, INPUT, 

DIM, PRINT, 

LIST, PLOT, 
UNPLOT, FOR, 
GOSUB. 

As vezes, durante 
a avaliagao de 
fungOes. 












CODIGO 

SIGNIFICADO 

SITUAQOES 

5 * 

Nao ha mais espago na tela. 

CONT criara espago, limpando a 
tela. | 

PRINT, LIST, 

PLOT, UNPLOT. 

6 

lesultado fora dos limites do 
computador. Os calculos produ- 
ziram um numero superior a 

10 38 . J 

Qualquer cdlculo 

aritmetico. 

7 

RETURN sem um GOSUB cor- 
respondente. 

RETURN 

8 

Voce tentou um comando INPUT 
nao permitido. 

INPUT 

9 

Instrugao STOP executada. 

CONT far£ a execugao comega 
da prdxima linha. 

STOP 

A 

Argumento invdlido para certas 
fungOes. 

SQR, LN, ASN, 

ACS 

B 

Numero inteiro fora da faixa 
(—655 34 a 65535). 

RUN,RAND, 

POKE, DIM, 

GOTO, GOSUB, 
LIST, PAUSE, 

PLOT, UNPLOT, 
CHR$, PEEK, 

USR. Quando de 

1 um acesso a uma 
matriz 

C 

O texto do argumento (de string) 
de VAL nao forma uma expres- 
sao num6rica valida. 

VAL 

D 

Programa interrompido por: 

1. Tecla BREAK pressionada ou 

2. Um STOP foi digitado no te- 
clado. 

1 Ao fim de qual¬ 
quer instrugao ou 
em LOAD, SAVE, 
PRINT, LIST ou 
| COPY. 

E 

Nao utilizado 


F 

O nome fornecido para o pro¬ 
grama esta em branco. 

J Zl 
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RESUMO 

Vamos rever agora todos os comandos e instrugoes que voce aprendeu atb aqui, 
em ordem alfabetica, para facilitar o seu trabalho posterior. 

Na relagao abaixo, 

V representa uma vari£vel; 

n representa expressao numerica que e arrendondada para o mimero inteiro mais 
proximo; 

e representa uma expressao. 

Note que expressoes arbitrarias sao permitidas em qualquer lugar, exceto para nu- 
mero de linha no inicio da instrugao. 

Todas as instrugoes, exceto INPUT, podem ser usadas tanto em linhas imediatas co- 
mo em linhas de comando. 


CONT 

Continua a execugao apos um BREAK ou STOP. Normalmente e di- 
gitado pelo teclado (n&o e colocado dentro de um programa). 

CLS 

Limpa a tela. 

GOTO n 

Salta para linha n (ou, se n&o existe, para a que vem depois dela). 
Exemplo: GOTO 20 

INPUT V 

P&ra e espera que seja feita uma entrada de dados. 

INPUT nao pode ser usado diretamente pelo teclado, pois ocorrerd 
erro 8. 

Se o primeiro caractere em uma linha de INPUT e STOP, o progra¬ 
ma para com denotagao D. Exemplo: INPUT A$. 

LET V=e 

Atribui o valor e & varicivel v. LET nao pode ser omitido. Uma vari£- 
vel simples b indefinida, atb figurar em uma instrugao LET ou 
INPUT. 

Exemplo: 

LET X = A + 25/3 

LIST 

Lista o programa na tela, comegando na 1? linha. 

LISTn 

Lista o programa na tela, comegando na linha n. Ocorrem err °s 4 ou 

5, se a listagem for muito longa para a tela. Exemplo: LIST 20 

NEW 

Apaga o programa e todas as vari^veis, para poder colocar outro na 
membria. 

PRINT 

Mostra algo na tela (o que estiver indicado depois da palavra 
PRINT), e que £ chamado item de impressao. 

O item pode ser: 

(1) Vazio, isto 6, nada aparece depois. Neste caso 6 mostrada na tela 
uma linha em branco. Exemplo: PRINT 

(2) Uma expressao numbrica. 6 mostrado o resultado da expressao. 
Exemplo: PRINT 25+14 

O resultado 6 impresso em notagao decimal ordin^ria de atb 8 dlgitos 
significativos e sem zeros ap6s o ponto decimal. Um ponto decimal 
no inicio b sempre seguido de um zero. 

(3) Uma expressao entre aspas. £ mostrado exatamente o que apare¬ 
ce. Exemplo: PRINT "BOM DIA" 

(4) AT m,n A posigao de impress^ 6 mudada para linha.m (con- 
tando do topo), coluna n (contando da esquerda). Se Iml = 22 ou 23, 
resulta erro 5 

(5) TAB n 




REM... 

A posigao de impressao e movida para coluna n, permanecendo na 
mesma linha, a menos que isso envolva retomo na mesma linha; nes- 
te caso, move-se para a proxima linha. Exemplo: PRINT AT 10, 20, 

"OI" 

Um ponto e virgula entre dois itens imobiliza a posigao de impres¬ 
sao, de forma que o segundo item siga logo apos o primeiro. 

Exemplo: 

PRINT "A = ; 25 . 

Uma virgula, por outro lado, move a posigao de impressao de, no 
minimo, um lugar; e, apos isso, tantos quantos forem necessarios pa¬ 
ra deixa-la na coluna 0 ou 16, introduzindo uma nova linha, se ne- 
cessario. Exemplo: PRINT "JOAO", "MARIA" 

Ao fim de uma instrugao PRINT, se ela nao terminar por ponto e vir¬ 
gula ou virgula, uma nova linha ser& colocada. 

Erro 4 (fora da memoria) pode ocorrer com 3k ou menos memoria. 
Erro 5 significa que a tela esta repleta. 

Em ambos os casos, a solugao e digitar CONT, que limpara a tela e 
continuara. 

Identifica comentarios em um programa. (Abrev. REMark), ignora o 
restante da linha. 

RUN 

Executa um programa a partir da primeira linha. 

RUN n 

Executa um programa a partir da linha m. Exemplo: RUN 2$ 

STOP 

Interrompe a execugao do programa, mostrando a mensagem 9. 

INT n 

Fungao para obter a parte inteira de um numero. Exemplo: PRINT 
INT 23.5 (sempre arredondando para menos). 

LEN String 

Comprimento da string. 

LN Numero 

Logaritimo natural (na base e). Erro A se x < 0; 0 se x # 0; 

1 se x = 0 

NOT tern prioridade 4. 

PI 

Fungao que retoma o valor do numero n (3,14159265...). 

SGN n 

Fungao que determina o sinal de um numero. 

SQR n 

N? Resultado 

positivo 1 
zero 0 

negativo -1 

Exemplo: 

LET X = SGN (-25) 

Calcula a raiz quadrada do numero n. Exemplo: PRINT SQR (24). 
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C A P I T U L O 


6 


« COMPUTADOR 
TAMBEM SABE 
DECIDIR 


Ate agora, voce aprendeu como 
programar o computador para: 


Programa 


Comando 


entrada de dados: INPUT 

caculos: LET 

resultados na tela: PRINT 


Estes comandos sao muito uteis 
para fazer uma infinidade de 
programas. Com elas, podemos 
transformar o computador em uma 
sofisticada calculadora 
matematica, capaz de resolver 
problemas de ccdculo de muitos 
tipos. 

Entretanto, o computador pode 
fazer muito mais do que isso. Ele 
pode, por exemplo, aprender a 
tomar decisoes sozinho! 

0 comando que permite fazer 
isto em BASIC se denomina IF. 

Em ingles, IF significa SE (ou seja, 
expressa uma determinada 
condicao). Por exemplo: 

300IFX = 0 THEN PRINT 
"0 NUMERO E IGUAL A ZERO" 


Este comando este dando a 
seguinte ordem para o 
computador: 

SE onumero X for igual a 0, 
ENTAO imprima a mensagem. 


A palavra THEN significa 
ENTAO, em inglds, e 6 sempre 
usada em conjunto com o IF. 


0 comando IF manda o 
computador tomar uma decisao 
muito simples. Ele ordena o 
computador a fazer uma 
determinada operagao, se a 
condig&o testada for verdadeira. 

No exemplo acima, se o numero 
contido na vartevel X for igual a 


0, a condigao testada (X = 0) 
sera verdadeira, e o computador 
mostrara na tela a mensagem: 

O NUMERO E IGUAL A ZERO 

E se a condigao nao for 
verdadeira? 

Entao o computador nao 
obedecera a instrugao PRINT na 
linha 300 e passara para a linha 
seguinte do progama: 


a condigao 

♦ 

300 IlFX] = 0 THEN 

I 

siga este caminho, se 
a condigao for falsa 


PRINT "NUMERO E IGUAL A ZERO" 

♦ 

siga este caminho, se 
a condigao for verdadeira 




















Voce tem dois caminhos para 
seguir, dependendo da decisao 
que tomar. Se o que estiver escrito 
na placa e verdadeiro, va para a 
direita. Se for falso, va para a 
esquerda? 

Vamos ver agora um programa 
bem simples, para mostrar como 
funciona o comando IF numa 
situagao real. Neste programa, a 
pessoa digita um numero qualquer 
no teclado, e o computador 
informa se ele 6 zero, positivo ou 
negativo. 


. 

10 REM — PROGRAMA PARA TESTAR SE UM NUMERO 
20 REM — E ZERO, POSITIVO OU NEGATIVO ' . 

30 REM_ 

40 REM 

50 REM — ENTRADA DE UM NUMERO 
60 REM 

70 PRINT "ENTRE UM NUMERO E EU DIGO QUE SINAL ELE" 
80 PRINT "TEM" 

90 INPUT X 
100 REM 

110 REM — TESTA O NUMERO 
120 REM 
125 PRINT 

130 IF X = 0 THEN PRINT "O NUMERO E ZERO" 

140 IF X > 0 THEN PRINT "O NUMERO "X;" POSITIVO" 

150 IF X < 0 THEN PRINT "O NUMERO ";X;" E NEGATIVO" 
160 PRINT 
170 GOTO 90 


Vamos ver como funciona este 
programa. Depois de digitar o 
comando RUN, aparece na tela 


ENTRE UM NUMERO E EU 
DIGO QUE SINAL ELE TEM 


Jt, 


Entao, se eu digitar, por exemplo, c 
numero - 9: 


ENTRE UM NUMERO E EU 
DIGO QUE SINAL ELE TEM 


9 tD 




E o computador responde: 


ENTRE UM NUMERO E EU 
DIGO QUE SINAL ELE TEM 

O NUMERO - 9 E NEGATIVO 

[in 


Se eu digitar agora o numero 34: 


Fentre um numero e eu 

DIGO QUE SINAL ELE TEM 

O NUMERO 9 E NEGATIVO 
O NUMERO 34 E POSITIVO 


m 


E assim por diante. 

Para interromper o programa, 
podemos pressionar a tecla STOP 

Outro uso bastante comum do 
IF 6 para assinalar quando uma 
determinada parte de um 
programa deve ser terminada e 
outra parte deve ser iniciada. 
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Veja o programa abaixo: 


Vamos ver um exemplo de utili- 
zagao do programa: 


10 REM — MAQUINA DE SOMAR 

20 REM_ 

30 REM 

40 REM — INSTRUCOES 
50 REM 

60 PRINT "DIGUE OS NUMEROS QUE QUISER SOMAR" 
70 PRINT "TODA VEZ QUE APARECER A LETRA L NA" 
80 PRINT "PARTE DE BAIXO DA TELA" 

90 PRINT 

100 PRINT "PARA OBTER A SOMA, DIGITE 0" 

110 PRINT 
120 REM 

130 REM — ZERA O SOMADOR 
140 REM 

150 LET SOMA = 0 
160 REM 

170 REM — ENTRADA DA PARCELA 
180 REM 
190 INPUT D 
200 REM 

210 REM — SE FOR ZERO, PULA PARA 350 
220 REM 

230 IF D = 0 THEN GOTO 350 
240 REM 

250 REM — SE NAO FOR, SOMA O DADO 
260 REM 
265 PRINT D 

270 LET SOMA = SOMA + D 
280 REM 

290 REM — E VOLTA A 190 DE NOVO 

300 REM 

310 GOTO 190 

320 REM 

330 REM — FIM DA ENTRADA. MOSTRA SOMA 
340 REM 
350 PRINT 

360 PRINT "SOMA = ";SOMA 


370 STOP 


foiGITE OS NUMEROS QUE 1 
QUISER SOMAR 
TODA VEZ QUE APARECER A 
! LETRA L NA 

I PARTE DE BAIXO DA TELA 



Se eu digitar os numeros 12, 7, 
15 e 35, um apos o outro (pressio- 
nando a tecla NEW LINE ou EN¬ 
TER, apos cada um), teremos a se- 
guinte tela: 


fDIGITE OS NUMEROS QUeTI 
' QUISER SOMAR TODA VEZ I 
I QUE APARECER A LETRA L 
NA PARTE DE, BAIXO DA 
TELA 
12 

I 15 .. L „ I 



Agora, se quisermos terminar 
esta parte do programa e ver o re- 
sultado da soma (linhas 350 a 370), 
vamos digitar 0 e ocorrera o se- 
guinte: 


f E OS 

NUMEROS QUE 1 

QUISER SOMAR TODA VEZ 1 

QUE APARECER A LETRA L 

NA PARTE 

DE BAIXO DA 

TELA 


12 


7 

SOMA 69 

15 


35 

9/370 ] 

L 



Veja quais seriam os numeros ar- 
mazenados nas vari&veis D e SO¬ 
MA, no exemplo acima. 


O programa funciona como uma 
maquina de somar. O numero de 
parcelas a serem somadas nao e 
conhecido de antemao. Assim, a 
parte do programa entre as linhas 
190 e 310 forma uma alga de repe- 
tigao, que serve para pedir os valo- 
res para o usuario (atraves do co- 
mando INPUT, na linha 190), e so- 
ma-los usando o contador SOMA. 


Para interromper esta alga, 
quando todos os numeros tiverem 
sido digitados, tenho que informar 
isso de algum modo ao computa- 
dor. Poderiamos, neste caso, digi¬ 
tar o numero zero. Um teste, den- 
tro do programa, desvia o proces- 
samento para outra parte (linha 
350 a 370), que vai mostrar o resul- 
tado. . 


Numero 

digitado 

Vanavel 

D 

Variavjel - 
SOMA 

12 

12 

12 

7 

7 

19 

15 

15 

• 34 

35 

35 

69 

0 

0 

69 

e acaba... 
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Se eu nao tivesse a linha de teste 
com o IF, seria impossivel dizer ao 
computador quando ele deveria 
mostrar o resultado da SOMA. 

• 

Note como funciona a linha de 
teste 

230 IF D = 0 THEN GOTO 350 

Esta frase tem o seguinte signifi- 
cado em portugues: 

Se o valor de D for igual a zero, 
ENTAO va para 350. 


Quando o computador encontra 
esta linha de programa, o que fara 
ele? 


1. Compara o numero armazenado 
na variavel D com zero; 


2. se este numero for igual a zero, 
entao obedece o comando que esta 
na mesma linha que o IF, logo de- 
pois do THEN, ou seja, GOTO 350; 

3. se este numero nao for igual a 
zero, continua seguindo o progra¬ 
ma, a partir da linha seguinte (ou 
seja, a linha 240). 


Mais usos para o IF 


O comando IF e interessante 
porque permite testar informagdes 
de muitas maneiras diferentes. Ele 
permite, por exemplo, verificar se 
a resposta a uma pergunta feita ao 
computador esta correta ou nao. 


Vamos entender como funciona 
este programa, passo a passo: 


10 REM_TESTE DE GEOGRAFIA 

20 REM __ 

30 REM 

40 REM_O COMPUTADOR FAZ UMA PERGUNTA 

50 REM 

60 PRINT "COMO SE CHAMA A CAPITAL DA ITALIA?" 
70 INPUT RESPOSTAS 
80 REM 

90 REM_VAMOS VER SE A RESPOSTA 

ESTA CERTA 
100 REM 

110 IF RESPOSTA$="ROMA" THEN GOTO 200 
120 REM 

130 REM_NAO, ERROU 

140 REM 
150 CLS 

160 PRINT "ERROU. A CAPITAL DA ITALIA E ROMA" 

170 STOP 
180 REM 

185 REM_PULA PRA CA, SE A RESPOSTA 

FOI CORRETA 
190 REM 
200 CLS 

210 PRINT "ACERTOU, VOCE SABE GEOGRAFIA, HEIN?" 
220 STOP 


— linha 60: o programa mostra a 
pergunta, no alto da tela 


— linha 70: fica esperando a res¬ 
posta digitada no teclado, e a 
guarda na variavel chamada 
RESPOSTAS 



— linha 110: compara o que esta 
em RESPOSTAS com a constan- 
te ROMA. 

Se for verdadeiro, ou seja, se a 
pessoa digitou ROMA, ENTAO pu¬ 
la para a linha n. 200, para dar os 
parabens. 


— linha 150 a 160: limpa a tela 
(CLS), diz que errou, e mostra a 
resposta correta. Depois para, 
interrompe o programa. 


— linha 200 a 220: limpa a tela, e 
da os parabens. Depois inter¬ 
rompe o programa. 


Como funciona o comando IF? 


Com os exemplos acima, ja po- 
demos deduzir alguns principios 
sobre o funcionamento do coman¬ 
do IF: 


— uma linha com o comando IF e 
composta de quatro partes: 


1. a palavra IF 


2. uma comparagao entre duas coi- 
sas 

3. a palavra THEN 

4. uma linha com um comando que 
deve ser executado, se o resulta¬ 
do da comparagao for VERDA¬ 
DEIRO 
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Aagao 


As seguintes operagdes relacio- 
nais sao permitidas em BASIC: 





igual 

O que vem na mesma linha do IF, 
logo depois da expressao logica, e a 

— 

agao ou conseqiiencia a ser seguida, 

< 

menor que 

se ela for verdadeira. 

> 

maior que 


< = 

menor ou igual a 


> = 

< > 

maior ou igual a 
diferente de (nao e 
igual) 

No BASIC do TK-85, bem como no 
de todos os outros microcomputadores 
compativeis com a linha Sinclair, a 


agao pode ser qualquer comando vali- 
do em BASIC: 


As palavras IF e THEN sao fixas, 
ou seja, sempre devem constar na 
linha. 

Vamos ver o que o BASIC permi- 
te que coloquemos nos itens 2 e 4. 

O item 2 6 chamado de CONDI- 
QAO, ou ainda de CLAUSULA 
LOGICA. 

O item 4 e chamado de AQAO 
ouCONSEQUENCIA. 

A condigao 

Em geral, a clausula logica 6 es- 
crita de tal forma que permita uma 
comparagao. 

Por exemplo: 

IFX = 5 THEN ... 


testa se o valor da variavel numeri- 
ca X £ igual a 5 

IF A > BTHEN ... 

testa se o valor da variavel numeri- 
ca A 6 major do que o valor da va¬ 
riavel numerica B 


IF 13 + (25 - 3) / 2 < C THEN ... 

testa se a expressao aritmetica h es- 
querda e menor do que o valor da 
variavel numerica C 


IFR$ = "SIM"THEN ... 


testa se a palavra armazenada na 
variavel alfanumerica R$ e igual a 
constante alfanumerica SIM 


So existem dois resultados possi- 
veis para uma expressao logica: 
verdadeiro ou talso . 

Se a EXPRESSAO resulta VER- 
DADEIRA, a AQAO e executada. 

Se a EXPRESSAO resulta FAL¬ 
SA, a AQAO nao e executada. 

Os sinais de igual (=), maior (>) 
e menor ( <) sao chamados de ope- 
ragoes relacionais, ou seja, permi- 
tem formar uma expressao que con- 
tenha uma igualdade ou uma desi- 
gualdade (como na matematica). 


Para digitar estas operagdes no 
teclado, note que existe algumas te- 
clas rotuladas com estes sinais: 


tecla L = 
tecla N < 
tecla M > 
tecla R < = 
tecla Y > = 
tecla T < > 


Para entrar a operagao, mante- 
nha pressionada a tecla SHIFT, en- 
quanto pressiona a tecla correspon- 
dente ao sinal desejado. 

Preste atengao em uma coisa: vai 
haver erro se voce tentar obter o si¬ 
nal > = pressionando a tecla > e 
depois a tecla = . 

Este sinal s6 pode ser obtido cor- 
retamente por meio de sua tecla es¬ 
pecial, e assim todos os outros. 

Uma comparagao logica deve 
sempre ter variaveis ou constantes 
do mesmo tipo, na mesma expres¬ 
sao. Caso contrario, ocorrera erro. 

Por exemplo: 

IF COMIDA = "BATATA" 
THEN... 

nao esta correto, porque estamos 
tentando comparar uma vari&vel 
numerica com uma constante alfa- 
betica. 

Ou entao: 

IFX$ >24THEN... 

tambem nao dar£ certo, porque es¬ 
tamos colocando na mesma expres¬ 
sao I6gica uma variavel alfanumeri- 
ca e uma constante numerica . 


Voce ja conhece alguns, que podem 
ser colocados sem problemas depois 
de um comando IF: 


RUN 

GOTO 

CLS 

PRINT 

INPUT 

STOP 

LET 


sao os mais usados. 

Eis aqui alguns exemplos: 


IF SEXO$ = "FEMININO" THEN 
GOTO 300 

IF T 20 > THEN STOP 

IF S < 0 THEN PRINT "O NUMERO 

E NEGATIVO" 

IF R <> 2 THEN INPUT P$ 

IF ANOS = "BISSEXTO" THEN LET 
DIAS = 366 

IF LINHAS > 20 THEN CLS 
IF FIM = 0 THEN RUN 


Vamos ver mais alguns efcemplos do 
uso do comando IF: 


EXEMPLO 1 : um programa para xin- 
gar uma pessoa! 
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10 REM - PROGRAMA PARA XINGAR UMA PESSOA 

20 REM ___ 

30 REM 

40 REM_PERGUNTA O NOME E O SEXO DA PESSOA 

50 REM 

60 PRINT "COMO VOCE SE CHAMA?" 

70 INPUT NOME$ 

80 PRINT "QUAL E O SEU SEXO (MASCULINO OU FEMININO)?" 
90 INPUT SEXO$ 

100 REM 

110 REM_TESTA QUAL E O SEXO 

120 REM 

130 IF SEXO$ = "MASCULINO" 

THEN LET XING$ = "BOBO" 

140 IF SEXO$ = "FEMININO" 

THEN LET XING$ = "BOBA" 

150 REM 

160 REM_ESCREVE O XINGAMENTO APROPRIADO 

170 REM 
180 PRINT 

190 PRINT NOME$;" VOCEE ";XING$ 

200 STOP 


Como vai ser o resultado deste pro- 
grama? 

O que acontecera se a pessoa digi- 
tar de uma forma errada o sexo, ou se- 
ja, se nao for exatamente igual a MAS¬ 
CULINO ou FEMININO? 

ExempJo 2: programa para calculc 
de raiz quadrada. 

Vamos supor que queremos fazei 
um programa para calcular a raiz qua¬ 
drada de um numero qualquer. Que¬ 
remos que o programa funcione assim: 
primeiro, a pessoa digita no teclado o 
numero que desejar. Depois, o pro¬ 
grama calcula a raiz quadrada e mos- 
tra o resultado na tela. Em seguida, 
pede outro numero a pessoa, e assim 
por diante. 


10 REM - PROGRAMA PARA CALCULO DE RAIZ QUADRADA 
20 REM - PARA O COMPUTADOR TK-85 

30 REM _ 

40 REM 

50 REM__ENTRADA DE UM NUMERO 

60 REM 

70 PRINT "CALCULO DA RAIZ QUADRADA" 

80 PRINT" = = = = = = = = = = = = = = = = = = = = = = =" 

90 PRINT "DADO"; 

100 INPUT D 
110 PRINT D; 

115 REM 

120 REM — CALCULO EIMPRESSAO 
130 REM 

140 LET R = SQR(D) 

150 PRINT "RAIZ QUADRADA = ";R 
160 REM 

170 REM — VOLTA PARA O COMECO, PARA 
OUTRO NUMERO 
180 REM 
190 GOTO 90 


E muito facil entender como funcio- 
na o programa: 

— nas linhas 90 E 100, o programa so- 
licita o numero a ser calculado; 

— na linha 110, o numero digitado e 
impresso na mesma linha; 

— nas linhas 140 e 150, o programa 
calcula e mostra a raiz quadrada; 

— na linha 190, o programa e desvia- 
do para o comando INPUT, de modo a 
possibilitar novo calculo. 


O GOTO 90 na linha 190 cria uma 
'a/gar sem tim", ou seja, o programa 
sempre vai se repetir, infinitamente. 
Quando voce quiser parar de utilizar o 
programa, basta pressionar a tecla 
STOP, com o programa na linha 90, ou 
pressionar a tecla BREAK, quando ele 
estiver calculando. Isto voce ja apren- 
deu. 


O programa ficaria muito melhor, 
entretanto, se nao fosse necessario 
pressionar estas teclas para 
interrompe-lo. Poderiamos fazer com 
que o computador "soubesse" quando 
deveria parar. 
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Uma sugestao interessante seria es- 
ta: se a pessoa entrar um valor deter- 
minado (por exemplo, zero), o progra- 
ma parard automaticamente. 

Para isto, precisamos testar se o va¬ 


lor armazenado na variavel de entrada 
D e igual a zero, certo? 

105 IF D = 0 THEN STOP 


Agora, nosso programa heard as- 
sim: 


10 REM - PROGRAMA PARA CALCULAR RAIZ QUADRADA 
20 REM - PARA O COMPUTADOR TK - 85 

30 REM _ 

40 REM 

50 REM — ENTRADA DE UM NUMERO 
60 REM 

70 PRINT "CALCULO DA RAIZ QUADRADA" 

80 PRINT" = = = = = = = = = = = = = = = = = = = = = = 
90 PRINT "DADO"; 

100 INPUT D 

101 REM 

102 REM — TESTA SE O VALOR E ZERO 

103 REM 

105 IF D = 0 THEN STOP 
115 REM 

120 REM — CALCULO EIMPRESSAO 
130 REM 

140 LET R = SQR(D) 

150 PRINT "RAIZ QUADRADA = R 
160 REM 

170 REM — VOLTA PARA O COMECO, PARA 
OUTRO NUMERO 
180 REM 


Agora parece que o programa ja es- 
ta bom, mas existe ainda outro proble- 
minha a ser resolvido. 

Nao existe a raiz quadrada de um 
numero negativo. 

Assim, se vocd digitar o numero -5, 
por exemplo, o programa sera inter- 
rompido, e aparecera a seguinte men- 
sagem de erro: 



Isto quer dizer que a fungao na linha 
indicada (140) foi usada com um argu- 
mento (isto e, dado de entrada) indevi- 
do ou errado (nao permitido ou impos- 
sivel de ser calculado). 

Nao e conveniente deixar ocorrer 
este tipo de interrupgao em um pro¬ 
grama, porque as vezes a pessoa que 
estd operando nao sabe o que significa 
aquela mensagem de erro nem como 
voltar a utilizar o programa. 

O ideal d que o proprio programa se 
encarregue de verificar se o numero 
digitado pode ou nao ser usado. 

Para que fagamos isto, e necessario 
realizar um teste. No nosso exemplo, 
teriamos que testar, dentro do progra¬ 
ma, se o numero digitado pela pessoa 
e valido ou nao. 


Se o numero fosse incorreto, o pro¬ 
grama poderia mostrar uma mensa¬ 
gem de advertencia (por exemplo: 
NAO PODE SER UM NUMERO NE- 
GATIVO, ou outra qualquer). 

Por exemplo, poderiamos colocar 
em nosso programa a seguinte linha, 
logo ap6s aquela que serve para entrar 
o numero a ser calculado (linha 100, 
com o comando INPUT): 

109 IF D < 0 THEN GOTO 250 

Esta linha permitira interceptar to- 
dos os numeros negativos. Se a clausu¬ 
la 


D <0 


for verdadeira, o programa pulara 
para a linha 250, onde sera mostrada 
uma mensagem de advertencia, para 
indicar o erro cometido. 


Se ela for falsa (ou seja, o numero e 
maior do que zero), o programa pulara 
para a linha seguinte (110), e o restan- 
te do cdlculo sera realizado. 


Agora, com todas as modificagoes, 
nosso programa heard assim: 
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10 REM - PROGRAMA PARA CALCULAR RAIZ QUADRADA 
20 REM - PARA O COMPUTADOR TK - 85 

30 REM _ 

40 REM 

50 REM — ENTRADA DE UM NUMERO 
60 REM 

70 PRINT "CALCULO DA RAIZ QUADRADA" 

80 PRINT" = = = = = = = = = = = = = = = = = = = = = = =' 
90 PRINT "DADO"; 

100 INPUT D 

101 REM 

102 REM — TESTA SE O VALOR E ZERO 

103 REM 

105 IF D = 0 THEN STOP 

106 REM 

107 REM — TESTA SE O VALOR E NEGATIVO 

108 REM 

109 IF D<0 THEN GOTO 250 

110 PRINT D; 

115 REM 

120 REM — C ALCULO EIMPRESSAO 
130 REM 

140 LET R = SQR(D) 

150 PRINT "RAIZ QUADRADA = "; R 
160 REM 

170 REM — VOLTA PARA O COMECO, PARA OUTRO NUMERO 
180 REM 
190 GOTO 90 
200 REM 

210 REM — MENSAGEM DE ERRO 
220 REM 

250 PRINT "NAO PODE SER UM NUMERO NEGATIVO" 

260 GOTO 90 


1. Responda que valor o programa vai 
mostrar na tela (linha 30) ao ser exe- 
cutado. 

a - 10 LET C = 34 
20 LET D = 25 
30 IF C>D THEN PRINT 
"NUMEROS DIFERENTES" 

b • 10 LET A = 234.5 
20 LET B = 234 

30 IF B-A<0 THEN PRINT "RAIZ 
QUADRADA IMPOSSIVEL" 

40 IF B-A >0 THEN PRINT 
SQR(B-A) 

c - 10 LET A$ = "BANANA" 

20 LET B$ *= "AVESTRUZ" 

30 IF A$< >B$ THEN PRINT 
"SAO DUAS PALAVRAS 
DIFERENTES" 

2. Escreva o significado das 
operagOes relacionais: 



3. Faga um programa para calcular o 
produto de dois ou mais numeros. 

Use o exemplo da "maquina de so- 
mar" como modelo. 

4. Prolongue o programa do teste de 
geografia, de modo a incluir outras 
questOes (por exemplo, sobre a capi¬ 
tal da Inglaterra, da Franga e da Es- 
panha). 

5. Escreva por extenso o que significa 
cada teste IF abaixo: 



a - IF A= 12.5 THEN... 
b - IF SQR(MEDIA) > 12 THEN... 
c - IF NOME$ = "DELFIM NETO" 
THEN... 

d - IFB**2>INT(B) THEN... 


Coloque este programa no compu- 
tador e teste com alguns numeros posi¬ 
tives e negativos para ver se ele fun- 
ciona. 


6. Escreva ao lado de cada comando 
IF qual e o erro: 

a - IF MEDIDA = "COLHER" THEN 
RUN 

b - IF X= <B$ THEN PRINT "SAO 
DIFERENTES" 
c - IF B> 12 PRINT PRINT 
d - IF LADOS = 25 THEN STOP 
e - STOP IF LADO = 25 
f - IF B2 + E5 + "F4" = C22 THEN 
CLS 
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7. Faga um programs para testar se o 
resultado da divisao de um numero 
por outro tern resto maior do que ze¬ 
ro. 


Dica: 10 INPUT N1 
20 INPUT N2 
30 LET D = N1/N2 
40 IF... 

Use a fungao INT (inteiro de) para 
verificar. 


8. Explique o que faz o programa 
abaixo com os valores de entrada (A e 
B) indicados. 

10 INPUT A 

20 INPUT B 

30 LET N = 0 

40 LET N = N + 1 

50 IF N = B THEN STOP 

60 LET A = A + 2 

70 PRINT A; " 

80 GOTO 40 


Valores: a - A = 2, B = 5 
b-A = 4, B= 1 
c-A = 0, B= 10 
d- A=l, B = .1 


9. Estude o programa abaixo e escre- 
va as mensagens que serao escritas na 
tela quando o programa for executa- 
do: 

10 PRINT "CURSO DE PROGRAMA- 
QAO BASIC" 

20 GOTO 75 

30 PRINT "EDITORA ABRIL CULTU¬ 
RAL" 

40 PRINT 
50 GOTO 140 

60 PRINT "BASIC E MUITO FACIL" 
70 GOTO 90 
75 PRINT "APRENDER"; 

80 GOTO 60 

90 LET A = 8 

100 IF A = 8 THEN 110 

105 PRINT "BASIC E MUITO DIFI- 

CIL" 

110 STOP 

140 PRINT "FIM DA MENSAGEM" 


Responda tamb£m: quais sao as li- 
nhas do programa que nunca serao 
executadas. Por qu£? 

10. Faga um programa que imprima 
na tela os numeros de 10 a 20. 



Como vimos na primeira parte des- 
te capitulo, um dos usos principals 
para o comando IF £ observado na 
contagem e repetigao de certos seg- 
mentos de um programa (ou seja, o 
que chamamos de olgas de repetigOo ). 

Para isto, ele 6 empregado em con- 
junto com uma varidvel chamada 
acumuladora ou contadora, que ser¬ 
ve para registrar quantas vezes cada 
coisa foi repetida. 

Por exemplo: um programa para 
contar de 1 a 10, mostrando na tela o 
seguinte resultado: 



poderia ser programado da seguinte 
maneira: 

10 LET N = 0 
20 LET N = N + 1 
30 PRINT N;" "; 

40 IF N < 10 THEN GOTO 20 
50 PRINT "FIM" 


Vamos entender melhor como funciona este programa: 


10 LET N = 0 N sera a varidvel contadora. Por isso, 

devemos inicializ^-la (no caso, iguald-la a 
zero). Isto deve ser feito antes de se come- 
gar a alga de repetigao. 


20 LET N = N + 1 Aqui 6 o comego da alga de repetigao. 

Somamos 1 ao valor anterior armazenado 
em N (isto 6, incrementamos ou acumula- 
mos o valor da contadora N). 


30 PRINT N;" "; Aqui imprimimos o valor atualizado de 

N, que sera maior cada vez que a alga for 
repetida. 


40 IF N < 10 THEN GOTO 20 ^ ste ^ ° * im a ^ a repetigao. Testa- 

mos se o valor incrementado na varidvel 
N )& atingiu 10. Se ainda nao tiver atingi- 
do, volta-se para a linha 20, para nova re¬ 
petigao. 


50 PRINT "FIM" Se o teste IF da linha anterior nao for 

verdadeiro, ou seja, se N for igual ou 
maior do que 10, entao o programa sai da 
alga e encerra o processamento, impri- 
mindo FIM. 
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Portanto, vemos que este progra- 
ma tem tr4s partes: 

inicializagao 
(antes da alga) 


10 LET N = 0 


20 LET N = N + 1 
30 PRINT N; x> 

40 IF*N<10 THE 
GOTO 20 


50 PRINT "FIM' 


aqui, tudo 

* 4 repetido 
10 vezes 

* final da alga 


se quisermos, poderemos acrescentar 
outros comandos, fora da alga. 


Note que este programa poderia ser 
escrito de muitas outras maneiras, 
com exatamente o mesmo resultado, 
em termos de processamento: 


A) 10 LET N = 0 

20 IF N>10 THEN 60 
30 LET N = N + 1 
40 PRINT N;" 

50 GOTO 20 
60 PRINT "FIM" 

B) 10 LET N = 1 
20 PRINT N; xx 
30 LET N = N + 1 

40 IF N< = 10 THEN 20 
50 PRINT "FIM" 

C) 10 LET N = 1 

20 IF N>10 THEN 50 
30 PRINT N;" 

35 LET N = N + 1 
40 GOTO 20 
50 PRINT "FIM" 

Na variante A, o teste 4 feito antes do 
incremento. A varidvel contadora 4 igua- 
lada a zero na inicializagao, por isso, a 
impressao (PRINT) tem que ser feita de- 
pois do incremento (N=N +1). 


Na variante B, a contadora 4 igualada 
a 1. Por isso, primeiro devemos imprimir 
seu conteudo para somente depois in- 
crement4-lo. Neste exemplo, o teste 4 fei¬ 
to no final da alga. 

Na variante C, temos uma misturade A 
e B: o teste 4 feito no inicio da alga, mas 
a contadora 4 igualada a 1 tamb4m no 
inicio. 


Como essas, voce poderia imaginar 
ainda um grande numero de combina- 
gOes das linhas, obtendo o mesmo resul¬ 
tado. Por isso, quase nunca existe uma 
unica solugao para um programa: v4rias 
solugOes podem levar ao mesmo resul¬ 
tado. 


Mas cuidado: um pequeno erro no 
operador relacional, ou na ordem de co- 
locagao das linhas, pode levar a um re¬ 


sultado diferente do esperado. Por 
exemplo: 

10 PRINT N=0 

20IFN >10 THEN GOTO 60 

30 PRINT N;""; 

40 LETN=N+1 
50 GOTO 20 
60 PRINT "FIM" 

imprimird 10 numeros, conforme o pre- 
visto, por4m o far4 de 0 a 9. Experimente! 

Que linha voce mudaria para obter 
um resultado correto? 

Modif icando ligeiramente a ldgica do 
programa acima, podemos faz4-lo con- 
tar de 2 em 2, de 3 em 3 eta 

Por exemplo, queremos fazer com que 
o programa imprima todos os numeros 
pares de 2 a 10: 


Portanto, podemos ver claramente que 
todo programa de repetigao contiolada 
de algas (isto 4, atrav4s de um certo nu¬ 
mero fixo de repetigOes), tem sempre os 
mesmos elementos basicos: 


| varidvel contadora ou indice j 


10LET®=(r> 

20 PRINT N;" 


valor inicial 
do indice 


40IFN 


<© 


\ 

valor do 

/ 

incremento 
do indice 


THEN GOTO 20 


50 PRINT "FIM" 


valor final 
do indice 


10 LETN=0 
20 LET N=N+2 
30 PRINT N;""; 



Na tela, sei4 apresentado o seguinte 
resultado: 


[ 2 4 6 8 10 FIM 

• 


L_ 

J 


Para obter os numeros impares de 1 a 9, 
bastariam estas mudangas: 

10 LETN=1 
20 PRINT N; xx "; 

30 LETN=N+2 

40 IF N < 9 THEN GOTO 20 

50 PRINT "FIM" 


Obteriamos o seguinte resultado: 


r 

1 3 5 7 9 FIM 


L 

Ja 


A repetigao (da linha 20 4 40) se d4 en- 
tre os valores inicial e final fixados no pro¬ 
grama para a varidvel contadora, ou 
indica 

No programa acima, as linhas 10,30 e 40 
servem exclusivamente para montar a ld¬ 
gica de repetigao: 

linha 10 - inicializagao da contadora 
linha 30 - incremento da contadora 
linha 40 - testa se o conteudo da conta¬ 
dora atingiu o valor final. 

Portanto, na realidade, apenas a linha 
20 4 o "miolo" da alga. 

Podemos colocar quantos comandos 
quisermos entre os comandos de inicio e 
fim de uma alga. Neste caso, todos ser3o 
repetidos tantas vezes quantas determi- 
nar a contagem. 

Por exemplo, vamos fazer um progra¬ 
ma para imprimir na tela o quadrado e o 
cubo dos multiplos de 2 (2, 4, 6, 8 etc), 
at4 20. 


10 LETN=2 
20 IF N > 20 THEN 80 
30 LET Q=N*N 
40 LET C=N*N*N 
50 PRINT N,Q,C 
60 LETN=N+2 
70 GOTO 20 
80 STOP 


Observe que neste exemplo as linhas 
de 30 a 50 constituent os comandos a se- 
rem repetidos pela alga. As linhas 10,20, 
60 e 70 sSlo usadas para incrementar e 
testar esta alga. 
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60CLS 

70 PRINT "EIS A TABUADA DE ";T 
80 PRINT 

leas variaveis 90 LET N =T 

100 PRINT Nr N*T 
110 LETN=N+T 

120IFN<T* 10THEN GOTO 100 
130 STOP 

Outra possibilidade muito interessan- U m exemplo de execugao deste pro- 

te e substituir as constantes correspon- grama seria o seguinte: 
dentes aos valores inicial, final e de incre- 
mento de uma alga por variaveis nume- 
ricas. Isto permite que, com um unico 
program a, possamos fazer uma infinida- 
de de repetigoes diferentes. 

Por exemplo, vamos fazer um progra- 
ma que saiba contar de 1 ate o numero 
quequisermos (que sera fornecido pelo 
teclado): 


JQUE TABUADA VOCE QUER?] 


um 



10 REM - PROGRAMA QUE SABE CONTAR 

20 REM. 

30 REM 

40 REM - MENSAGEM INICIAL 
50 REM 

60 PRINT "EU SEI CONTAR DE 1 ATE O NUMERO" 
70 PRINT "QUE VOCE QUISER." 

80 PRINT 

90 PRINT "DIGITE O NUMERO QUE QUISER = 
100 INPUT NUM 
110 PRINT NUM 
120 PRINT 
130 REM 

140 REM — INICIAUZACAO DA CONTADORA 
150 REM 

160 LET CONT= 0 
170 REM 

180 REM - ALCA DE REPETICAO 
190 REM 

200 LET CONT= CONT+1 
210 PRINT CONT 

220 IF CONT < NUM THEN GOTO 200 
230 STOP 


Da mesma forma, o incremento tarn- 
bem poderia ser colocado como variavel. 

Fbr exemplo, este programa mostra na 
tela a tabuada de multiplicar que 
quisermos. 

10 REM — TABUADA DE 
MULTIPLICAR 

20 REM. 

30 REM 

40 PRINT "QUE TABUADA 
VOCE QUER ESTUDAR?" 

50 INPUT T 


EIS A TABUADA DE 4: 

4 8 12 16 20 24 28 32 40 


9/ 130 


Os valones de lnci'cio, f im e incremento 
da alga nao precisam ser inteiros ou cres- 
centes, como nos exemplos ate agora. 


Se o valor do incremento for negativo 
(neste caso, o nome apropriado seria de- 
cremento), a contagem sera retroativa, 
ou seja, o valor final devera ser menor do 
que o inicial. 

Por exemplo, vamos fazer um progra¬ 
ma que faga uma contagem retroativa 
para simular o langamento de um 
foguete! 


ATENCAO 

10 987654321 

O 

FOGO... 


L 


O programa pode ser bem simples: 

10 REM - PROGRAMA PARA CON¬ 
TAGEM REGRESSIVA 

20 REM. 

30 REM 

40 PRINT "VAMOS LANCAR UM FO¬ 
GUETE DA" 

50 PRINT "BARREIRA DO INFER¬ 
NO..." 

60 PRINT 

70 PRINT "QUANTOS SEGUNDOS 
FALTAM?" 

80 INPUT SEG 
90 REM 

100 REM CONTAGEM REGRES¬ 
SIVA 
110 REM 
120 CLS 

130 PRINT "ATENCAO" 

140 PRINT 

150 PRINT SEG;" ": 

160 LET SEG=SEG-1 
170 IF SEG> 0 THEN 150 
180 PRINT 
190 PRINT 

200 PRINT "FOGO..." 

210 STOP 


Observe que neste programa a varia¬ 
vel contadora (SEG) e inicializada pelo 
proprio comando INPUT, na linha 80. 

Com o programa seguinte, voce pode 
ver tambem que os valores da alga nao 
precisam ser inteiros (ou seja, podem ser 
fracionarios): 


10 PRINT "VALOR INICIAL EG INDI¬ 
CE?" 

20 INPUT I - 

30 PRINT "VALOR DO INCREMENTO 
DO INDICE?" 

40 INPUTS 

50 PRINT "VALOR FINAL DO INDI¬ 
CE?" 
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60 INPUT F 
70 LETN=I 
80 PRINT N;" 

90 LET N=N+S 

100 IF NF THEN GOTO 80 

110 PRINT 

120 STOP 

Por exemplo, se colocarmos os valores 
I=4, S=0.5 e F=6, teremos o resultado: 



T 

K em um jeito 
C mais facil 


Como a programagao de algas de re¬ 
petigao e um recurso muito utilizado, a 
linguagem BASIC foi dotada de um co- 
mando que permite faze-la de modo 
mais facil do que usando o comando IF. 

Este comando e chamado de FOR 
que, em ingles, significa PARA. 

Para construir uma alga de repetigao 
com o comando POR, e necessario mar- 
car tambem o final da mesma por meio 
de segundo comando, chamado NEXT 
(SEGUINTE, em portugues), e que sem- 
pre e usado em conjunto com o FOR. 

Siga o exemplo abaixo, para com- 
preender de que jeito os comandos 
FOR... NEXT sao utilizados para obter 
uma repetigao. 


USANDO IF 

10 LETN=1 

20 PRINT N 

30 LETN=N+1 

40 IF N < 10 THEN GOTO 20 

50 PRINT TIM" 


O comando na linha 10 do programa 
a direita esta dizendo para o 
computador: 

10 repita PARA a variavel N,indo de 1 
ATE 10, de 1 em 1. 

Todos os comandos que estiverem en- 
tre a linha 10 e o proximo NEXT serao re- 
petidos tantas vezes quantas o numero 
indicar (no exemplo, apenas a linha 20). 

O comando na linha 30 esta dizendo 
para o computador: 

30 PROXIMA repetigao com a variavel 
N. 

O que significa que o programa retor- 
na a linha 20 (ou a qualquer linha que es- 
tiver imediatamente em seguida a linha 
com o comando POR), para nova repeti¬ 
gao, desde que o valor da contadora nao 
tenha atingido o seu final. 

Portanto, o comando FOR serve para 
fixar: 

1. o nome da variavel de contagem 
(indice) 

2. o valor inicial do mdice 

3. o valor final do indice 

4. onde deve comegar a alga de repetigao 

Enquanto o comando NEXT serve pa¬ 
ra realizar o seguinte: 

1. incrementar o valor do indice 

2. testar se ele atingiu o valor final 

3. indicar o final da alga 

Depois da alga FOR...NEXT ter sido 
repetida n vezes, o programa retoma o 
seu fluxo normal, a partir da linha ime¬ 
diatamente apos a linha que contem o 
NEXT. 


USANDO IF 


Atengao: na linguagem BASIC para 
microcomputadores compativeis com a 
logica Sinclair (marcas TK 82C, TK 83, 
TK 85, CP 200etc), e obrigatoria a colo- 
cagdo do nome da variavel-fndice no co¬ 
mando NEXT. Em outros computadores, 
nem sempre isto e necessdrio. 

Voce deve ter notado que o comando 
FOR, como foi mostrado ate agora, nao 
especif ioou o valor do incremento (quan- 
tidade a ser adicionada ao indice, a partir 
do valor inicial). 

Se nada for especificado no comando 
FOR, o valor do incremento e igual a 1. 

Se quisermos colocar um incremento 
diferente de 1, usamos o comando STEP 
(que significa PASSO), ao final do co¬ 
mando FOR: 

10 FOR 1=2 TO 10 STEP 2 

20 PRINT I; u "; 

30 NEXT I 

40 PRINT TIM" 

Este programa vai mostrar todos os nu- 
meros pares de 2 a 10.0 incremento ne¬ 
cessario (no caso, 2) e indicado pela pa- 
lavra STEP. 

Portanto: 

FORN=l TO 10 STEP 1 
6 a mesma coisa que 

PORN=d TO 10 


Portanto, se compararmos as duas for¬ 
mas de programar uma alga, poderemos 
facilmente identif icar os seus elementos 
bcisicos: 


USANDO FOR...NEXT 



10LET(N)=(2, 
20 PRINT N;""; 


^— I indice I — ^ 10 FOr'®= (|)TO (J^STEPl^ 

- I valor inicial I - v 20 PRINT N; 


30 LET N=N+ @ - 1 incremento I — v 30 NEXT N 

40 IF N< (10 XTHEN GOID 20 


50 PRINT "FIM" 


valor 

final 


40 PRINT "FIM" 


USANDO POR ...NEXT 

10 FOR N=1 TO 10 
20 PRINT N 
30 NEXT N 

50 PRINT "FIM" 
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Os comandos que estao entre um FOR 
e seu NEXT oorrespondente sao agrupa- 
dos no chamado alcance da alga. Um 
outro nome que voce podera encontrar 
pam alga, em outros livros e revistas, e 
malha. 


Ao contrario das algas construidas 
com o comando IF, as algas com o co- 
mando FOR...NEXT admitem apenas 
uma estruturagao. 

Note como o programa para elabora- 
g3o da tabela de quadrados e de cubos 
fica muito mais simples: 


10 POR N=2 TO 20 STEP 2 
20LETQ=N*N 
30 LET C=N*N*N 
40 PRINT N,QC 
50 NEXT N 
60 STOP 


Varias linhas de programagao e uma 
oomplicagao desneoessaria sao evitadas. 

As linhas 20,30 e 40 sao o alcance da 
alga, que vai de 20 a 50. 

Note tambem que o comando FOR 
aoeita tambem especificagoes fraciona- 
rias ou negativas 

Por exemplo, o nosso programinha de 
oontagem regressiva para os foguetes fi- 
caria assim: 


10 REM — PROGRAMA PARA 
CONTAGEM REGRESSIVA 

20 REM-- 

30 REM 

40 PRINT "VAMOS LANCAR UM 
FOGUETEDA" 

50 PRINT "BARREIRA DO INFER¬ 
NO..." 

60 PRINT 

70 PRINT "QUANTOS SEGUNDOS 
FALTAM?" 

80 INPUT SEG 
90 REM 

100 REM — CONTAGEM 
REGRESSIVA 
110 REM 
120 CLS 

130 PRINT "ATENCAO" 

140 PRINT 

150 FOR S=SEG TO 1 STEP -1 
160 PRINTS;""; 

170 NEXT S 
180 PRINT 
190 PRINT 

200 PRINT "POGO..." 

210 STOP 


Vale a pena anotar algumas diferengas 
importantes entre este programa e o que 
mostramos anteriormente, usando o co¬ 
mando IF: 

1. a variavel SEG (valor inicial da conta- 
gem regressiva) nao pode ser usada 
tambem como variavel de indice ou 
contadora. Por isso usamos o valor S; 

2. o valor inicial (SEG) e menor do que o 
final (1); 

3. apesar do incremento ser 1, em valor 
absoluto, como e negativo, precisa ser 
especificado pelo comando STEP; 

4. todas as especificagoes do comando 
FOR podem ser constantes ou varia- 
veis, ou ainda expressoes aritmeticas 
validas, indistintamente. 

Veja este exemplo: 


10 PRINT "QUE TABUADA VOCE 
QUER VER7' 

20 INPUTT 

30 PRINT "A PARTIR DE QUE VA¬ 
LOR?" 

40 INPUT I 

50 PRINT "ATE QUE VALOR? /# 
60 INPUT F 
70 CLS 

80 PRINT "EIS A TABUADA DOS ";T 
90 PRINT 

100 FOR N=I TO F STEPT 
110 PRINT N;""; 

120 NEXT N 
130 STOP 


Alguns errinhos que voce deve evitar, 

quando for usar os comandos POR... 
NEXT: 

1. na linha com o comando FOR, nao po¬ 
dem ser omitidos o sinal de igualdade 
(=), o valor inicial (constante, variavel 
ou expressao), a palavra TO, o valor fi¬ 
nal (constante, variavel ou expressao), 
nesta ordem; 

2. a palavra STEP e opcional, mas, se co- 
locada, deve ser obrigatoriamente se- 
guida do valor do mesmo (tambem 
uma constante, variavel ou expressao 
vdlidas em BASIC); 

3. nao pode existir um comando FOR 
sem o NEXT correspondente nem um 
NEXT sem FOR; 

4. e obrigatorio colocar o nome da varia¬ 
vel de indice no comando NEXT; 

5. o comando FOR deve ser encontrado 
pelo program a antes do comando 
NEXT que lhe corresponder. 


Verifique, na tabela de mensagens de 
erros (pagina 33), quais sao os codigos 
que ocorrem quando cada uma das re- 
gras acima for desrespeitada na 
programagao. 



esperando 
o tempo passar. 


Uma das utilidades das algas de repe- 
tigao e fazer o tempo passar. Em outras 
palavras, se quisermos fazer com que o 
computador aguarde um certo periodo 
de tempo, entre uma fase e outra de um 
programa, podemos recorrer a uma alga 
FOX NEXT com um grande numero de 
repetigoes, mas sem nenhum comando 
de entrada ou saida a seu alcance. Quan¬ 
to maior for o numero de repetigdes, 
maior sera o tempo obtido. 

Por exemplo: 

10 PRINT "COMPUTADOR"; 

20 POR 1 = 1 TO 500 
30 NEXT I 
40 GOTO 10 

Este programa escreve a palavra 
COMPUTADOR varias vezes, uma apos 
a outra, ate encher toda a tela. 

Entretanto, a "alga vazia" (isto e, que 
nao contem nenhum comando) das li¬ 
nhas 20 e 30 cria um aumento de tempo 
que, no TK 85 e em outros microcompu- 
tadores do mesmo tipo, corresponde a 
cerca de 2 segundos entre uma palavra 
e outra. 

Outro exemplo, para fazer uma pala¬ 
vra piscar na tela: 

10 PRINT "COMPUTADOR" 

20 POR 1=1 TO 100 
30 NEXT I 
40 CLS 
50 PRINT" 

60 POR 1=1 TO 100 
70 NEXT I 
80 GOTO 10 

Neste programa, a linha 10 escreve a 
palavra COMPUTADOR naprimeira li¬ 
nha da tela. Em seguida, ha um peque- 
no aumento de tempo, dado pela alga 
nas linhas 20 e 30, que faz com que esta 
palavra permanega na tela por um certo 
tempo. Depois, a linha 40 apaga toda a 
tela. As linhas 60 e 70 criam um novo au- 
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mento de tempo, que a mantem apaga- 
da por igual periodo, e a linha 80 realiza 
a repetigao do processo. 

Muitos computadores, como e o caso 
dos compativeis com a logica Sinclair, 
tern um comando especial para obter au- 
mentos de tempo, ou pausas, como sao 
tecnicamente chamadas. 

Este comando e denominado PAUSE. 
Procure-o no teclado de seu compu- 
tador. 

O programa acima poderia ser escri- 
to de forma muito mais simples, usando- 
seo comando PAUSE: 

10 PRINT "COMPUTADOR" 

20 PAUSE 20 
30CLS 
40 PAUSE 20 
50 GOTO 10 

Quando o oomputador encontra o co¬ 
mando PAUSE, ele interrompe todo o 
processamento e continua a mostrar tu- 
do o que foi escrito na tela durante n qua- 
dros (neo numero, maior que zero e me- 
nor que 32767, que indica ao computa- 
dor quantos quadros ele deve esperar). 
Normalmente, a tela e renovada, em um 
aparelho de TV, a velocidade de 60 telas 
ou quadros por segunda Isto nos da a 
impressao de que ela e fixa, mas na rea¬ 
lidade ele- esta piscando t<3o depressa, 
que nem peroebemos. 

Assim, no programa acima, o numero 
20, depois do comando PAUSE, faz o 
computador esperar cerca de 20/60 de 
segundo, ou 1/3 de segundo, para depois 
prosseguir. 

Quais as vantagens ou desvantagens 
da alga FOR NEXT em relagao ao co¬ 
mando PAUSE? 

Bern, em primeiro lugar, a pausa da- 
da por POR NEXT funciona para qual- 
quer computador, em qualquer "dialeto" 
(variagao) da linguagem BASIC. Por is- 
so, se voce quiser fazer um programa que 
possa ser colocado em varios tipos de 
computador, use FOR... NEXT. 

Em segundo lugar, o comando PAU¬ 
SE tern uma peculiaridade: nos compu¬ 
tadores tipo TK, a cada 60 quadros (apro- 
ximadamente 1 segundo), a tela de video 
pisca perceptivelmente, produzindo 
uma imagem pouco estavel. Este efeito 
artificial nao ocorre com o FOR... NEXT. 

Por outio lado, uma vantagem nitida. 
que o PAUSE tern sobre o POR... NEXT, 
e que utiliza um numero menor de linhas 
do que este (portanto, o programa gasta 


menos memoria, £ mais curto e mais fa- 
cil de ser entendido). 


Vamos ver mais algumas aplicagOes 
interessantes para o PAUSE. 

No programa de contagem regressiva 
anterior, podemos tomar mais real a si- 
mulagao de uma contagem se fizermos 
assim: 


10 REM - PROGRAMA PARA CON¬ 
TAGEM REGRESSIVA 

20 REM -... 

30 REM 

40 PRINT "VAMOS LANCAR UM 
FOGUETE DA" 

50 PRINT "BARREIRA DO INFER¬ 
NO..." 

60 PRINT 

70 PRINT "QUANTOS SEGUNDOS 
FALTAM?" 

80 INPUT SEG 
90 REM 

100 REM — CONTAGEM 
REGRESSIVA 
110 REM 

120 FOR S=SEG TO 1 STEP-1 
130 PRINTS;" 

135 PAUSE 60 
140 NEXT S 
150 PRINT 
160 PRINT 

170 PRINT "POGO..." 

O comando PAUSE funciona ate que 
alguma tecla seja pressionada. Se isto 
acontecer, e se o comando PAUSE esti- 
ver em execugcio (tempo de espera), o 
computador executa imediatamente a li¬ 
nha seguinte ao comando PAUSE. Evi- 
dentemente, isto nSo acontece com a 
programagao de algas de espera de,tem¬ 
po com os comandos FOR... NEXT. O 
computador fica "congelado" nao res- 
pondendo a nenhuma tecla (com exce- 
gao da tecla BREAK), durante todo o pe¬ 
riodo de espera. 

O comando PAUSE pode ser usado 
tambem para apresentar varias telas de 
informagao, dando tempo para que o 
usuario as leia, para, depois, limpar a tela 
com o comando CLS e para apresentar 
emseguida nova tela... 

10PRINT "JOGO DE ADIVINHACAO' 
20 PRINT "zzii:::::::™::::™" 

30 PRINT 

40 PRINT "NESTE JOGO, EU VOU 
SORTEAR UM" 

50 PRINT "NUMERO ENTRE1 E100, E 
VOCE" 

60 PRINT "TEM QUE TENTAR ADIVI- 
NHARQUAL" 

70 PRINT "FOI." 

80 PAUSE 300 
90 CLS 

100 PRINT "GANHA QUEM ADIVI- 
NHAR EM MENOR" 


110 PRINT "NUMERO DE VEZES" 
120 PAUSE 180 
130 PRINT 


Neste programa, as linhas de 10 a 70 
mostram a informagao a ser lida na tela 
do video. Em seguida, a linha 80 provo- 
ca uma pausa de cerca de 5 segundos (o 
que proporciona tempo para a leitura, 
mesmo para as pessoas que leem deva- 
gar!), limpa a tela e passa para a segun¬ 
da tela de informagao (linhas 100 e 110), 
da nova pausa (menor), na linha 120, e 
assim por diante. 

Seapessoale com rapidez, basta que 
ela pressione qualquer tecla ao terminar 
a leitura. Se o comando PAUSE corres- 
pondente ainda estiver sendo executado, 
ele e inteirompido epassa imediatamen¬ 
te para a linha seguinte. 



1. Fagaum programa para calcular a so¬ 
ma dos numeros inteiros de 1 a 100 
(faga duas versoes para este progra¬ 
ma: uma usando algas com IF, e outra 
usando algas com FOR... NEXT). 

2. Modifique o programa acima, de mo- 
do a poder calcular a soma dos nume¬ 
ros inteiros entre 1 e um numero qual¬ 
quer (que sera fomecido por um co¬ 
mando INPUT). 

3. Faga um programa como o acima, so 
que para calcular o fatorial de um nu¬ 
mero inteiro qualquer (N!) 

Dica: N! = 2x3x4 ...x N 

Porexemplo: 5! = 2x3x4x5 
= 100 

O que acontece se eu entrar um nu¬ 
mero muito alto (por exemplo, 
32 000!)? 


4. Qual e a seqiiencia de valores que os 
seguintes programas mostrarao na te¬ 
la, quando executados? 

a. 10LETN=1 
20 PRINT N 
30LETN=N+2 
40IFN=9 THEN STOP 
50 GOTO 20 
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b. 10LETD=0 
20 LET 1=0.25 
30LETD=D+I 

40 IF D 2 THEN GOTO 70 
50 PRINT D 
60 GOTO 30 
70 STOP 

c. 10LETN=10 
20LETN=N+1 

30 IF N 20 THEN GOTO 20 
40 IF N 30 THEN STOP 
50 PRINT N 
60 GOTO 20 

d. 10 LET 1= -1 
20LET S=2 
30LETS=S+1 
40IFS10 THEN STOP 
50 PRINTS 

60 GOTO 30 

5. Qual e a seqiiencia de valores que se- 
rao gerados pelos seguintes coman- 
dos FOR? 

a. PORE=20TO 100STEP10 

b. FOR X=10TO 20 STEP 0.5 

c. P0RZ=5T01 STEP-0.25 

d. P0RN=34T036 

e. P0RN=36T034 

f. FOR N=36 TO 34 STEP -1 
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7. Faga um programa para testar se o 
resultado da divisao de um numero 
por outro tem resto maior do que 
zero. 


Resposta: 

A fungao INT obtem o maior inteiro 
presente em um numero qualquer. 


Descubra e explique quads os erros 
nos programas seguintes: 


a. 121 FOR X=1 TO 232 STEP 3 

122 PRINT X/3 

123 NEXT Y 

Resposta: 

b. 10 FOR X$=l TO 25 
20 NEXT X$ 

Resposta: 

c. 300 POR ZZ=145 
310 NEXT ZZ 

Resposta: 

d. 10 POR 1= “12 TO 12 STEP 2 
20 PRINT I; 

30 NEXT 

Resposta: 

e. 10 NEXT J 
20POR J=2TOS 


Resposta: 


RESPOSTAS AOS 
EXERCICIOS 
ANTERIORES 


Quando o resto de uma divisao e zero, 
entao o resultado da divisao e igual ao 
seu inteiro. 


10INPUTN1 

20 INPUT N2 

30 LET D=N1/N2 

40 IF INT (D)=D THEN GOTO 60 

50 PRINT "DEIXOU RESTO" 

55 GOTO 10 

60 PRINT "NAO DEIXOU RESTO" 
70 GOTO 10 


7. Quantossegundosesperaracadaco- 
mando PAUSE? 

a. PAUSE 30 

b. PAUSE 600 

c. PAUSE 10/60 

d. PAUSE 1 


8. Faga um programa para aceitarum 
nome qualquer pelo teclado e entao 
faze-lo piscar por 10 vezes seguidas, 
no meio da primeira linha da tela. 
Use comandos IF. 


9. Faga um programa para calcular a 
soma de 10 numeros quaisquer, di- 
gitados no teclado. Use o comando 
POR. 


10. Faga um programa para imprimir 
uma tabela das raizes quadradas dos 
numeros de 10 a 1000, de 10 em 10. 
Use o comando FOR. 


10. Faga um programa que imprima na 
tela os numeros de 10 a 20. 


Resposta: 

10 LET N=10 

20 PRINT N 

30LETN=N+1 

40 IF N < 20 THEN GOTO 20 

50 STOP 
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lgas dentro 
de algas 


Muitas vezes e necessdrio repetir den¬ 
tro de um programa algas menores den¬ 
tro de algas maiores. Embora parega 
complicada, esta operagao 4 fcicil de ser 
feita em BASIC, desde que tomemos al- 
guns cuidados. 

Para servir de exemplo, vamos fazer o 
seguinte programa: 

Queremos colocar na tela a lista dos 
numeros da cartela da Loto, de modo 
que cada dezena comece em uma linha 
nova. Dessa forma, temos: 


0123456789 
10 11 12 13 14 15 16 17 18 19 
20 21 22 23 24 25 26 27 28 29 


L 


e assim por diante. 

Uma maneira bem facil de programar 
isto 6 a seguinte: 


dente (linha 90), ou seja, as linhas 50,60, 
70e80. 

Entretanto, dentro dessa alga, encon- 
tramos um segundo POR, que determi- 
na a repetigao, por 10 vezes, de tudo que 
se encontra entre a linha seguinte (linha 
60) e o NEXT correspondente (que esta 
na linha 70). 

Portanto, a linha 60: 

60 PRINT D* 10+N;" "; 

que e a unica que se encontra dentro das 
duas algas, simultaneamente, sera 
executada: 

10x10= 100 vezes 

Como existe um ponto e virgula no fi¬ 
nal dessa linha, os numeros impressos 
sob controle da alga interna (linhas 50 e 
70) serao colocados sucessivamente na 
mesma linha, um apos o outro, com um 
espago em branco de separagao entre 
cada dois algarismos. 

A linha 80 (que so e executada depois 
que a alga se completa) foi colocada para 
provocar uma mudanga de linha no final, 
ou seja, para comegar uma nova dezena 
na linha imediatamente abaixo. 

Para compreendermos como duas al¬ 
gas podem f icar' aninhadas" isto £, uma 
dentro da outra, costuma-se usar o recur- 
so das flechinhas de retomo: 


4. agora o programa encontra a linha 70 
(NEXT N), que provoca o incremento 
da variavel N de mais 1, e em seguida 
este valor 4 comparado com o valor fi¬ 
nal do indice, que £ 9. Como ainda 4 
menor do que este, a linha 60 (dentro 
da alga interna) e repetida mais uma 
vez. 

Mas agora o valor armazenado na 
variavel N passou a ser 1, enquanto 
que o valor armazenado em D ainda 4 
0. Portanto, calcula-se: 

D*10+N 4 igual a 0*10+1, 

ou seja, igual a 1, que 4 impresso na 
mesma linha que o valor 0 impresso 
anteriormente, por causa do ponto e 
virgula; 

5. novamente o programa encontra a li¬ 
nha NEXT N, incrementa (N passa a 
ser 2, testa, etc). Depois de repetir is¬ 
to ate que 9 seja atingido, teremos uma 
linha impressa assim: 


0123456789 


10 REM -TABELA PARA APOSTAR 
NALOIO 

20 REM-. 

30 REM 

40 POR D=0TO9 
50POR N=0TO9 
60 PRINT D*10+N;" 

70 NEXT N 
80 PRINT 
90 NEXT D 
100 STOP 


Pcxiemos ver facilmente que este pro¬ 
grama tern duas algas, uma dentro da 
outra: 



O primeiro POR enoontrado (linha 40) 
determina a repetigao, por 10 vezes, de 
tudo que se encontra entre a linha se¬ 
guinte (linha 50) e o NEXT correspon- 


(—► 40 FOR D=0TO9 
50POR N=0TO9 

60PRI 
70 NEXT N 
80 PRINT 
-90NEXT*D 

Ao ser executado o programa pela pri- 

meira vez, acontece o seguinte: 

1. ao encontrar a linha 40, o programa 
inicializa a variavel contadora D com 
o valor inicial 0, e especif ica 9 como o 
valor final (maximo) e 1 como o incre¬ 
mento (STEP); 

2. ao encontrar a linha 50, o novo co- 
mando POR inicializa a variavel con¬ 
tadora N como o valor inicial de 0 e es¬ 
pecif ica o valor final como 9, e o incre¬ 
mento como 1; 

3. a linha 60 4 impressa pela primeira 
vez. Como D 4 zero e N tambem 4 ze¬ 
ro, ainda teremos como resultado da 
expresscio D* 10+N o valor zero, que 4 
impresso; 


6. portanto, ao terminar a alga que vai de 
50 a 70, o programa executa a linha se¬ 
guinte, que 4 80 (PRINT), mudando 
de linha na tela, e cai na linha 90, que 
4 um NEXT D, ou seja, que incremen¬ 
ta o valor armazenado na contadora D, 
testa se 4 menor que 9, etc Como nao 
4 igual a 9 ainda, o programa repete 
a linha logo abaixo do FDR D, ou se¬ 
ja, a linha 50. Como esta 6 uma linha 
FOR, tambem repete-se tudo de no¬ 
vo, como acima, so que o valor de D e 
agora igual a 1. Portanto a linha a ser 
impressa passa a ser: 


012345678 
10 11 12 13 14 15 16 17 18 19 


1 


e assim por diante 



N 1 ? 


D*10i-N;" 
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Vamos ver como ficariam, em uma ta- 
bela, os valores de N e D em cada repe- 
tigao das duas algas: 


LINHA 

D 

N 

D*10h 

40 

0 

0 

0 

50 

0 

0 

0 

50 

0 

1 

1 

50 

0 

2 

2 

50 

0 

3 

3 

50 

0 

4 

4 

50 

0 

5 

5 

50 

0 

6 

6 

50 

0 

7 

7 

50 

0 

8 

8 

50 

0 

9 

9 

40 

1 

0 

10 

50 

1 

1 

11 

50 

1 

2 

12 

50 

1 

3 

13 


eta 


Fela tabela, voce pode observar que os 
dois indices (D e N) das algas variam re- 
gularmente (sao inciementados). So que 
o indice da alga mais interna varia mais 
depressa, e o indice da alga mais exter¬ 
na, mais devagar. 


100 FOR 1=1 T03 
110POR 1=1 T04 
120 NEXT I 
130 NEXT I 


Da mesma forma, devemos evitar a 
modificagao da varidvel-i'ndice da alga 
dentro da mesma (por exemplo, atraves 
do comando LET ou do comando IN¬ 
PUT), de modo a evitar erros logicos. En- 
tretanto, isto e permitido pelo interpreta- 
dor BASIC. Por exemplo: 

10POR 1=1 TO 10 
20 LET 1=1+1 
30 PRINT I 
40 NEXT I 

Coloque este programa no computa- 
dor e verif ique qual e o resultado. 



m programa 
completo 


d. especificagao das formulas de 
caiculo 

e. esquema geral do programa 
(etapas) 

f. codificagao em linguagem BA¬ 
SIC 

g. teste com alguns dados conheci- 
dos 

h. documentagao 

a. Especificagao dos 
dados de entrada 

Parametros de operagao do pro¬ 
grama: 

CL$ - nome da classe (por exem¬ 
plo, 5? serie A) 

NA - numero de alunos na classe 
NM - numero de materias que a 
classe tern 

Dados individuais (para cada alu- 
no) 

NO$ - nome 
NU - numero da classe 
NO - nota em uma determinada 
materia 

b. Especificagao dos 
dados de saida 


Fbdemos colocar varias algas, umas 
dentro das outras. 

A unica regra que devemos seguir a 
risca e a seguinte: nao pode haver "cru- 
zamentos" entre os POR e respectivos 
NEXT das algas emparelhadas. Por 
exemplo, o seguinte programa provocara 
uma mensagem de erro: 

100 POR 1 = 1 TO 3 
110POR J=1102 
120PRINT I, J 
130 NEXT I 
140 NEXT J 

Se colocarmos as flechinhas que indi- 
cam os pares POR... NEXT, veremos que 
ha um cruzamento entre elas, o que indi- 
ca o erro sintatico: 


— 100 POR 1 = 110 3 
110POR J=1 TO 2 
120 PRINT I,J 
L — 130 NEXT I 
L 140 NEXT J 


Outro arranjo nao permitido e usar a 
mesma variavel-indioe para duas ou mais 
algas que estejam aninhadas. Embora is¬ 
to, muitas vezes, nao seja indicado pelo 
computador comp um erro sintatico, na- 
turalmente pode provocar erros logicos 
muito dificeis de serem detectados. 


Agora voce ja conheoe um numero su- 
ficiente de comandos em BASIC para 
tentar seus primeiros programas comple¬ 
tes. Para exemplificar os passos de de- 
senvolvimento de um programa de maior 
porte, vamos programar iuntos a seguin¬ 
te tarefa: 

Faga um programa para calcular a 
media simples das materias para ca¬ 
da um dos alunos de uma classe. Ao 
final, o programa deve mostrar a me¬ 
dia geral da classe. Alem disso, o 
programa deve informar para cada 
aluno as suas notas, a sua ntedia, e se 
foi aprovado (nota igual ou maior que 
7, se ficou para recuperagao (nota 
maior que 5 e menor que 7) ou se foi 
reprovado (nota menor que 5). Tanto 
o numero de alunos quanto o numero 
de materias sao variaveis (isto e, sao 
diferentes para cada serie, e devem 
ser informados ao programa). 

Solugao: 

Vamos dividir o nosso trabalho de 
programagao nas seguintes etapas: 

a. especificagao dos dados de en¬ 
trada 

b. especificagao dos dados de sai- 
da 

c. especificagao das constantes in- 
ternas 


MG - media global da classe 
MA - media geral de cada aluno 

c. Especificagao das 
constantes internas 

AP - nota de aprovagao (> = 7) 
RR - nota de recuperagao (> = 5 
e<7) 

RP - nota de reprovagao (< = 5) 

d. Especificagao das 
formulas de calculo 


S - soma das notas de cada 
aluno 

MA = S/ND - media geral do alu¬ 
no 

e. Esquema geral 
do programa 

O programa tera as seguintes par¬ 
tes: 

1. identificagSo do programa 

2. instrugoes breves de utilizagao 

3. entrada de dados parametricos 
(nome da classe, numero de 
alunos e de materias) 

4. alga de entrada dos alunos: en¬ 
trada do numero de classe e 
nome 
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5. alga de entrada das notas de 
cada aluno 

6. calculo da media do aluno 

7- acumulagao da soma das ma¬ 
dias da classe 

8. impressao dos resultados de 
um aluno 

9. calculo e impressao da madia 
global 

10. fim do programa 

f. Codificagao em 
linguagem BASIC 


10 REM- 

20 REM - MEDIAS 1.00 JAN 85 
30 REM - CALCULO DE MEDIAS DE UMA 
40 REM - CLASSE P/ SINCLAIR 
50 REM - (C) 1985 R. SABBATINI 

60 REM. 

70 REM 

80 REM — 1. IDENTIFICACAO 
90 REM 

100 PRINT TAB 12; "MEDIA 1.00 " 

110 PRINT "CALCULO DAS MEDIDAS DA CLASSE" 
120 PRINT 
130 PRINT 
140 REM 

150 REM — 2. OBJEUVO 
160 REM 

170 PRINT "ESTE PROGRAMA TEM POR OBJETIVO" 
180 PRINT "CALCULAR AS MEDIAS GERAIS 
DOS ALUNOS" 

190 PRINT "DE UMA CLASSE, A PARTIR DAS" 

200 PRINT ”SUAS NOTAS NAS DISCIPLINAS." 

210 PRINT 

220 PRINT "FORNECA OS SEGUINTES DADOS" 

230 PRINT "PARA A CLASSE:" 

240 PRINT 
250 REM 

260 REM — 3. DADOS PARAMETRICOS — 

270 REM 

280 PRINT "NOME DA CLASSE?" 

290 INPUT CL$ 

300 PRINT "NUMERO DE ALUNOS NA CLASSE?" 

310 INPUT NA 
320 NA = INT (NA) 

330 IF NA < 1 THEN GOTO 310 

340 PRINT "NUMERO DE DISCIPLINAS?" 

350 INPUT NM 
360 NM = INT (NM) 

370 IF NM < 1 THEN GOTO 350 




375 LET MG = 0 
380 REM 

390 REM — 4. ENTRADA DOS ALUNOS 
400 REM 

405 FOR ALUNO = 1 TO NA 
410 CLS 

420 PRINT "CLASSE : CL$ 

430 PRINT "ALUNO NO."; ALUNO 
440 PRINT 
450 PRINT 

460 PRINT "DIGITE OS DADOS DESTE ALUNO: 
470 PRINT 

480 PRINT "NOME?" 

490 INPUT NO$ 

500 PRINT "NUMERO DA CLASSE?" 

510 INPUT NU 
520 PRINT 
530 REM 

540 REM — 5. ENTRADA DAS NOTAS — 

550 REM 

560 LET S = 0 

570 FOR NOTA = 1 TO NM 

580 PRINT "NOTA DA MATERIA" ; NOTA 

590 INPUT NO 

600 IF NO < 0 THEN 590 

610 IF NO >10 THEN 590 

620 LET S = S + NO 

630 NEXT NOTA 

635 LET MA = S/NM 

640 PRINT 

650 PRINT "MEDIA GERAL = "; MA 
660 LET MG = MG + MA 
670 NEXT ALUNO 
680 REM 

690 REM —- 6. CALCULO MEDIA GLOBAL — 
700 REM 
710 CLS 

720 PRINT "MEDIA DA CLASSE" ; MG/NA 
730 STOP 



TESTE 

9.1 .Quando A necessArio usar variAveis dentro de um programa para arma- 
zenar o resultado de express5es? 

Resposta: ----— 


9.2. Indique o que estA errado nas linhas abaixo: 

a. 25 LET NOME$ = 25 - 

b. 30 LET VARI$ = "12AB -- 

c. 40 LET C = "COMPUTADOR" - 

d. 50 LET C$ = 25 + 4*22 - 

e. 60 LET LOG(N) = 423 - 

f. 70 PRINT X = 225 --- 

g. 80 LET “COMPUTADOR" = C$ - 

9.3. Identifique, na coluna k direita, qual e o tipo de constante ou variavel 
em BASIC, marcando a letra correspondente na coluna k esquerda: 

a. variavel alfanumerica ( ) 123.14 

b. variavel numerica ( ) '|ATOMO ,/ 

c. constante alfanumerica ( ) "123" 

d. constante alfanumerica ( ) v 

e. comando BASIC ( ) LET 

( )ABCS 
( ) "LET" 

( ) "PRINT 123" 

( ) RUN 100 

9.4. Como faz o computador para armazenar na mem6ria um nome compos- 
to de varios caracteres? 

Resposta: ___ 

9.5. Defina: 

a. caractere: - 

b. cadeia de caracteres: --- 

c. variavel alfanumerica: -- 

d. variavel numerica: --- 

e. constante alfanumerica: --- 

f. constante alfanumerica: --- 

9 6 Qual e o comprimento m&ximo de uma cadeia de caracteres permitido 
pelo BASIC? 


Resposta: 
























9.7. Descreva as diferengas b&sicas de funcionamento entre os comandos 
LET e INPUT. O que tdm eles em comum? 

Resposta: _ 


9.8. Mostre como aparecerd a linha de baixo da tela, quando o programa 
encontrar os seguintes comandos (dica: cursor K ou L, com ou sem as- 
pas): 



9.9. Como se deve proceder para interromper a execugao do programa, ca- 
so ele esteja parado nas linhas acima? 

Resposta: _ 


9.10. Cite tr§s usos para o comando REM em um programa. 

Resposta: 1. _ 

2 . __ 

3. _ 

9.11. O que 6 um comando executdvel? D6 tr6s exemplos. 

Resposta: 1. _ 

2 . _ 

3. _ 

9.12. Identifique na coluna k esquerda cada comando em BASIC, com a 
fungao que ele realiza na coluna k direita: 

a. RUN ( ) armazena algo em uma vari&vel 

b. NEW ( ) linha de comenterio 

c. STOP ( ) inicia a repetigao de uma alga 

d. PRINT ( ) executa um programa 

e. LET ( ) continua um programa interrompido 

f. REM ( ) mostra um resultado na tela 

g. INPUT ( ) testa uma condigao 

h. PAUSE ( ) limpa a tela 

i. GOTO ( ) continua a repetigao de uma alga 

j. CLS ( ) interrompe a execugao do programa 

l. FOR ( ) apaga um programa da mem6ria 

m. NEXT ( ) entra um valor pelo teclado 

n. LIST ( ) desvia o programa para outra linha 

o. CONT ( ) lista um programa na tela 

p. EDIT ( ) corrige uma linha de programa 

q. IF ( ) provoca uma pausa no programa 

















9.13. Defina: 


a. variavel somadora: ----- 

b. vari&vel contadora: -- 

c. alga de repetigao: --- 

d. clausula lbgica: --- 

e. operador relacional: --- 

f. alga sem fim:- 

g. aninhamento de algas:- 

9.14. Identifique os elementos basicos de uma alga: 

FOR I = 1 TO 12 STEP 2 

9.15. O que o programa abaixo vai mostrar na tela ao ser executado? 

10 FOR 1 = 1 TO 100 STEP 10 
20 FOR I = I TO 1 + 2 
30 PRINT J; 

40 NEXT J 
50 NEXT I 

Resposta: 

9.16. 0 que acontecerd ser for adicionada a seguinte linha ao programa 
acima? 

45 PRINT 

9.17. Faga uma programa para gerar na tela todas as combinagOes possiveis 
de preenchimento do cartao da Loteria Esportiva. Por exemplo: 

1 - COLUNA 1 3 - COLUNA 1 

2 - COLUNA 1 COLUNA 3 

COLUNA 2 

Dica: numere as colunas 1, 2 (do meio) e 3. 

9.18. Cite duas regras importantes que nao podem ser violadas no a ninh a- 
mento de algas. 

Resposta:___ 

Cite duas vantagens do comando FOR para construir algas, em relagao 
ao comando IF. 

Resposta: _______ 


9.19. Modifique o programa para o c&lculo das m6dias de uma classe (pd- 
ginas 54 e 55), de modo a permitir colocar as notas-limites para apro- 
vagao, recuperagao e reprovagao, por meio de comandos INPUT 
(variaveis). 

9.20. Faga um programa para apresentar na tela trds exercicios de tabua- 
da de multiplicar e testar se o resultado apresentado pelo aluno foi 
correto. O programa deve dizer, ao final, quantos exercicios foram 
resolvidos corretamente pelo aluno. 
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C A P I T U L O 


■* 

!, ORTEE AZARNO 
9 COMPUTADOR 


Para muitas pessoas, o jogo d uma 
das coisas mais interessantes e diver- 
tidas que se pode fazer com um com- 
putador. Se o jogo incluir efeitos de 
acaso, sorte ou azar, melhor ainda! 

Este capftulo serd quase todo dedi- 
cado aos jogos e aos modos de 
programd-los. Vamos comegar com 
um joguinho bem simples, de adivi- 
nhagao, depois estudar como fazer 
um programa util ao ensino e, final- 
mente, vamos programar alguns jo- 
guinhos que utilizam grdficos na tela. 

Para introduzir o acaso (sorteio de 
um dado, por exemplo) em um jogo, 
6 necessdrio conhecer uma fungao 
propria da linguagem BASIC que 
permite sortear numeros. 

Esta fungao d chamada de RND, 
abreviatura da palavra inglesa RAN¬ 
DOM, ou seja, aleatdrio (ao acaso). 

A fungao RND, portanto, serve pa¬ 
ra sortear numeros aleatdrios. 

Numeros aleatdrios sao numeros 
escolhidos ao acaso pelo computa- 
dor, a partir de certo conjunto maior 
de numeros. 

Vamos imaginar, por exemplo, co¬ 
mo d o sorteio de um numero em um 
dado. 

Ao langarnjos o dado, a face que 
ficar para cima sera o numero sortea- 
do. 



Naturalmente so temos seis alterna- 
tivas possfveis no langamento do da¬ 
do. A este conjunto de numeros cha- 
mamos de espago amostral. O nume¬ 
ro aleatdrio so podera ser um destes 
seis. 

Outro exemplo seria uma moeda, 
no jogo de cara ou coroa. So temos 
aqui duas alternativas. Vamos excluir 
a possibilidade de a moeda ficar de 


pe sobre a borda! O espago amostral 
da moeda e igual a 2. O espago 
amostral do dado d igual a 6. 

A probabilidade de que um deter- 
minado numero aleatorio saia em um 
sorteio d definida como o inverso do 
numero das alternativas possfveis. 

Assim, por exemplo, a probabili¬ 
dade de sair no dado um determina- 
do numero d de: 

1 um evento em 

6 seis alternativas possfveis 

Expressando em percentages, ha- 
veria a probalidade de sair um nume¬ 
ro qualquer como sendo: 

100 x 1 = 16,666(5% 

6 

Em outras palavras, se jogarmos 
um dado 100 vezes, cada uma das fa¬ 
ces serd sorteada cerca de 16 vezes 
aproximadamente. Para calcular, 
portanto, quantas-vezes se espera um 
determinado resultado, multiplica¬ 
nds a probabilidade pelo numero de 
vezes em que ser realizard o sorteio. 

Quantas vezes, por exemplo, se es¬ 
pera que saia coroa, se langarmos 
uma moeda 200 vezes? 

1/2 x 200 = 0,5 x 200 = 100 vezes 

1/2 d a probabilidade de que coroa 
seja sorteada um um langamento. 

Note que a probabilidade de sair 
cara d a mesma de sair coroa, ou se¬ 
ja, 50%. Tanto neste caso, como no 
caso de um dado, dizemos entao que 
a distribuigao probabih'stica e UNI¬ 
FORME, ou seja, todos os numeros 
possfveis tern a mesma probabilidade 
de ser sorteados. 



■ BA fungao RND 



Como podemos utilizar esta fungao 
do BASIC para simular o sorteio de 
numeros aleatorios uniformes? 

Vocd se lembra de que uma fungao 
em BASIC efetua sempre um cdlculo 


ou devolve um resultado, a partir de 
um dado ou argumento que dermos a 
ela dentro do programa. 

Para calcularmos, por exemplo, a 
raiz quadrada do numero 25, fazemos 
assim: 

LET R = SQR (25) 

sendo 25 o dado ou argumento. A 
fungao SQR, quando chamada, re- 
torna o resultado (no caso, 5), que d 
armazenado na varidvel indicada por 
LET. 

Podemos tambdm colocar a fungao 
dentro de uma expressao: 

LET RAIZ = 100 * SQR (25)/3 

ou ainda, dentro de um comando 
PRINT: 

PRINT SQR (25) 

A fungao RND d um pouco diferen- 
te. Ela nao precisa de um argumento. 
Bastaria colocar, por exemplo, 

PRINT RND 

para sortear um numero aleatdrio ou 
usar RND dentro de uma expressao 
LET. 

Em segundo lugar, a fungao RND 
nao faz nenhum cdlculo matemdtico, 
como no caso da raiz quadrada 
(SQR) e outras fungdes em BASIC 
deste tipo. 

Ela apenas retorna um numero 
aleatdrio de distrjbuigao uniforme, 
compreendido entre zero (0) e um 
(1). 

Cada vez que a fungao RND 6 usa- 
da, um nrhero aleatdrio inteiramente 
diferente d sorteado. 

Por isso, a fungao RND d chamada 
de geradora de numeros aleatdrios. 

O conceito de numero aleatdrio, 
no caso da fungao RND d parecido 
com o do sorteio de dados e moedas, 
sd que o numero sorteado nao d um 
numero inteiro (1, 2, 3 etc.)* mas um 
numero fraciondrio, entre 0 e 1. 

Se colocarmos, por exemplo, no 
computador o seguinte programa: 

10 FOR 1=1 TO 10 


59 








20 PRINT RND 
30 NEXT I 

sortearemos em seguida 10 numeros 
aleatorios, que serSo impressos na te¬ 
la assim: 

0.03892129 

0.12455412 

0.67129093 

0.00112232 

0.48983312 

0.87811121 

0.11201232 

0.00989823 

0.01909123 

0.53219883 

Se voce executar novamente o pro- 
grama, um novo conjunto de 10 nu¬ 
meros totalmente diferente do pri- 
meiro sera mostrado na tela. Um nu- 
mero deste tipo nunca se repete. 

Na realidade, o nosso "sorteador" 
nao e tao perfeito assim. O numero 1 
“redondo” (1.000000000) nunca 6 
sorteado. Os limites do sorteio caem 
entao entre 0.000000000 (zero perfei¬ 
to) e 0.999999999. 

U sando RND 
em jogos 


O gerador de numeros aleatbrios 
do BASIC e do tipo universal , ou se- 
ja, ele pode ser usado para simular 
qualquer tipo de sorteio (dados, moe- 
das, baralhos etc.). Vamos ver como 
isto e feito. 

Comecemos com o caso mais sim¬ 
ples: a moeda. 

Cada evento probabilistic© (em ou- 
tras palavras, o que pode resultar do 
langamento honesto de uma moeda) 
tern a probabilidade de 0,5. 

Portanto, para simular o langamen- 
to de uma moeda com a fungao RND, 
podemos fazer simplesmente isto: 

1. sorteamos um numero fraciond- 
rio de 0 a 1 com a fungao RND; 

2. testamos se este numero b me- 
nor do que 0,5. Se for, consideramos 
que saiu cara, por exemplo. Se for 
maior do que 0,5, consideramos que 
saiu coroa (podia ser o contrdrio, pois 
esta e uma convengao que depende 
apenas do programador). 


Vejamos um programa que realiza 
isto: 

10 LET R = RND 
20 IF R <0.5 THEN 
"CARA" 

30 IF R > = 0.5 THEN 
"COROA" 

40 GOTO 10 

Vamos inter pretar o que 
programa: 

- linha 10 = sorteie um numero fra- 
ciondrio entre 0 e 1 e armazene-o na 
variavel R; 

- linha 20 = se R for menor do que 
0.5, imprima a palavra CARA; 

• linha 30 = se R for maior ou igual a 
0.5, imprima a palavra COROA; 

- linha 40 = volte para a linha 10 (no¬ 
vo sorteio). 

Se executarmos este programa, 
poderemos ter o seguinte resultado: 

CARA 

COROA 

CARA 

CARA 

CARA 

COROA 

CARA 

COROA 

COROA 

e assim por diante, ate encher total¬ 
mente a tela. Observe que, neste sor¬ 
teio, sairam apenas tres coroas e cin- 
co caras. Mas ndo haviamos dito que 
o numero de caras e coroas seria 
igual? 

Bern, isto so vai acontecer se sor- 
tearmos um numero muito grande de 
vezes! Quanto mais sortearmos, mais 
semelhante sera a ocorrencia dos 
dois eventos. Esta b a chamada lei 
dos grandes numeros. 

Como a fungao RND tornou possf- 
vel um sorteio "honesto" da moeda? 

Voce se lembra de que nos disse- 
mos que a distribuigao aleatoria do 
gerador RND e uniforme, nao 4? 

Isto significa simplesmente que ca¬ 
da um dos numeros a serem sorteados 
tern a mesma probabilidade. Em con- 
seqiiencia, se dividirmos este conjun¬ 
to de numeros em duas partes (menor 
e maior do que 0,5 respectivamente), 
a probabilidade de sair um numero 
que caia numa destas duas metades 
continua sendo igual, certo? 


PRINT 

PRINT 

faz este 


Como dividimos o espago amostral 
em apenas duas possibilidades, sera 
de 0,5 a probabilidade de cada uma 
delas! 

Podemos estender este raciocmio 
para outras divisoes: em 3, 4, 5, 10 
possibilidades etc. 

Mas ha um inconveniente: teremos 
que aumentar o numero de IF no pro¬ 
grama, para poder testar todas as 
possibilidades. 


Existe, felizmente, um meio mais 
facil de fazer isto. Usaremos um arti- 
ficio matemdtico muito simples e fdcil 
de entender, que serve para qual¬ 
quer ocasido. 

Vamos agora tomar como exemplo 
o dado. 

O dado tern um espago amostral de 
6: existem apenas seis possibilidades 
de sorteio. 

Se multiplicarmos o resultado da 
fungao RND por 6, teremos o seguin¬ 
te: 


menor numero que pode ser 
sorteado por RND = 0 
multiplicado por 6 =6x0 = 0 

maior numero que pode ser 
sorteado por RND =0.999999999 
multiplicado por 6 =5.999999994 

Teremos, portanto, um numero fra- 
ciondrio, que pode ser desde 0 ate 
5.999999994 

Como queremos um numero intei- 
ro distribuido entre 1 e 6, basta usar- 
mos a seguinte expressao em BASIC: 

INT (RND*6) + 1 

Vamos analisar o que esta expres¬ 
sao faz com o numero sorteado: 

- primeiro, ela multiplica o numero 
aleatbrio por 6, dando, portanto, um 
numero aleatbrio entre 0 e 
5.999999994; 

- em seguida, calcula o inteiro deste 
numero (ou seja, o di'gito d esquerda 
do ponto) e obterd um numero de 0 a 
5; 

- finalmente, soma 1 a este numero. 
Portanto, teremos um numero de 1 a 
6 . 


Conseguimos programar um sor¬ 
teador de dados! 
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Vamos tomar um exemplo com al- 
guns numeros aleat6rios ; para enten- 
der como funcionam estas transfor- 
magoes: 


O mais grave, entretanto, £ que, 
quando ligamos o computador pela 
primeira, vez, o gerador aleatbrio 
sempre usa uma "semente" fixa, que 
e 0.0022735596. 


Isto significa que o joguinho que 


RND 

RND* 6 

INT (RND * 6) 

INT (RND*6) + 1 

voce programar podera estar "vicia- 
do", desde que se saiba qual e a se¬ 

0.0000000 

0.0000000 

0 

1 

quencia inicial. 

0.0025342 

0.0152052 

0 

1 

Para evitar isto, o BASIC tern um 
comando chamado RAND, que pode 

0.3451235 

2.070741 

2 

3 

ser usado logo no comego do progra¬ 
ma, para gerar uma "semente" ao 

0.9999999 

5.9999994 

5 

6 

acaso, ou seja, a primeira semente da 
serie de sorteios. 


Para ver um maior numero de 
exemplos, coloque no computador o 
programa abaixo: 

10 LET R = RND 

20 PRINT R; R*6; INT (R*6); INT 
(RND *6) + 1 
30 GOTO 10 



aleatorio mesmo? 


Para todos so efeitos, precisamos 
dar um comando RAND ao computa¬ 
dor apenas uma vez antes de cada se- 
rie de sorteios. 

Por exemplo: 

5 RAND 

10 PRINT INT (RND*2) + 1; 

20 GOTO 10 


Agora podemos programar o nosso 
primeiro joguinho, para sortear um 
dado quantas vezes quisermos: 

10 REM - JOGO DE SORTEIO DE 
UM DADO 

20 REM - PARA MICROS TIPO ZX 

30 REM -. 

40 REM 

50 PRINT "SORTEIO DE UM DADO" 
60 PRINT 

70 PRINT "QUANTAS VEZES QUER 
LANCAR O DADO?"; 

80 INPUT NV 
90 PRINT NV 
100 PRINT 

110 FOR I = 1 TO NV 

120 PRINT "SORTEIO NO."; I;" = "; 

INT (RND*6) +1 
130 NEXT I 
140 STOP 


Um exemplo de jogada seria o se- 
guinte: 


[SORTEIODE UM DADO 
1 QUANTAS VEZES QUER 
LANCAR O DADO? 

4 

SORTEIO N.° 1 = 5 
SORTEIO N.° 2=1 
SORTEIO N.° 3 = 3 
SORTEIO N.° 4=1 
[9/140 


Teoricamente, um bom gerador de 
numeros aleatorios nunca deveria re- 
petir a mesma sequencia de numeros 
sorteados. Entretanto, isto e impossi- 
vel de se consequir na pratica, devi- 
do a maneira como eles sao progra- 
mados na memoria ROM do compu¬ 
tador. 


Explicando de maneira simplifica-. 
da, um gerador interno de numeros 
aleatorios funciona da sequinte ma¬ 
neira: 


Um numero aleatorio, ao ser gera- 
do pela fungao RND, fica armazena- 
do internamente em uma memoria de 
trabalho. Uma segunda vez que a 
fungao RND for chamada, ela trans¬ 
forma este numero armazenado por 
um processo matematico especial, 
para gerar um outro numero aleato¬ 
rio. Este processo se repete tantas ve¬ 
zes quantas a fungao RND for chama¬ 
da. 


Por isso, dizemos que o gerador 
aleatorio precisa de uma "semente" 
para funcionar. O numero gerado em 
cada chamada serve de semente para 
o proximo. A sequencia entao e 
pseudo-aleatoria, e depois de alguns 
milhoes de sorteios pode se repetir 
novamente. 


vai sortear numeros 1 e 2 ao acaso. A 
linha 5, com o comando RAND, sera 
uma sementinha aleatoria inicial, de 
modo que ninguem conseguira advi- 
nhar a sequencia de sorteios. 

Note bem: nao confunda o coman¬ 
do RAND com a fungao RND. 



1. Faga um programa para simular 
varias vezes o sorteio de uma moeda 
(o usuario informa quantas vezes ele 
quer). 

2. Modifique o programa acima para 
contar quantas vezes saiu cara e 
quantas vezes saiu coroa, informando 
o resultado ao final: 


SORTEIO DE UMA 
MOEDA 45 VEZES 

SAIRAM 19 CARAS * 
(42.22222%) 

SAIRAM 26 COROAS 
(57.77777%) 
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Vamos comegar com um jogo bem 
simples: o tradicional cara ou coroa. 


3. Indique qual o numero aleat6rio 
minimo e mdximo que podem sair, 
em fungdo das expressoes abaixo: 

Minimo Mdximo 

a. INT (RND)_ 

b. INT (RND*8) + 2_ 

c. INT (RND*2)-1_ 

d. RND/2__ 

e. RND*RND_ 

4. Teste no computador qual serb o 
resultado dos seguintes programas: 

a. 10 PRINT RND (0) 

20 GOTO 10 


b. 10 PRINT RND (1) 

20 GOTO 10 

5. Faga um programa para sortear as 
cartas de um baralho, mostrando o 
seu valor ou figura na tela. 

Dica: as cartas de um baralho sao: 
2, 3, 4, 5, 6, 7, 8, 9, 10, J, Q, K e A, 
em quatro naipes (espadas, copas, 
paus e ouros). 

Faga dois sorteios no programa: 
um para sortear a figura, outro para 
sortear o naipe. Depois apresente o 
resultado assim: 


A CARTA SORTEADA 
FOI 5 DE COPAS. 


A CARTA SORTEADA 
FOI VALETE DE PAUS. 

e assim por diante. 


6. Faga um programa para imprimir 
20 sorteios de um numero aleatbrio R, 
calculando e imprimindo em cada 
sorteio as seguintes transformagdes 
do programa: 

a. R*10 

b. 1 + INT(R*10) 

c. 10 + INT(R*10) 

7. O que fazem os programas abaixo? 

a. 10 POR 1=1 TO INT (RND*200) 
20 NEXT I 
30 CLS 
40 PRINT I 
50 LET 1 = 1 + 1 
60 GOTO 10 


b. 10 LET T = 1 + INT (RND*30 ) 

20 PRINT TAB T;"*"; 

30 CLS 
40 GOTO 10 

8. Escreva as expressoes com a fun- 
gao RAND, necessdrias para sortear 
numeros aleatbrios que simulem os 
seguintes jogos: 

a. roleta (numeros 0 a 35)_ 

b. palitinho (0 a 5 palitos)_ 

c. loto (numeros 0 a 99)_ 

9. Faga um programa que sorteie 10 
vezes um numero aleatbrio inteiro, 
compreendido entre um minimo de 
50 e um mdximo de 100 (inclusive). 

10. Qual b o numero esperado de ve¬ 
zes que: 

a. sairb o numero 6 em um dado 

langado 300 vezes?_ 

b. sairb o ds em 20 cartas retiradas 

de 20 baralhos?_ 


OBJETIVO DO JOGO 
"CARA OU COROA" N? 1: 

O computador pergunta d pessoa o 
que ird aparecer: cara ou coroa. Em 
seguida, sorteia a moeda e mostra se 
a pessoa acertou. Se ela errou, quern 
ganha b o computador. Se ela acer- 
toi*> o computador perde. 


10 REM — JOGO DE CARA OU 
COROA N? 1 

20 REM. 

30 REM 
40 RAND 

50 PRINT "CARA OU COROA" 

60 PRINT "==============" 

70 PRINT 

80 PRINT "ESCOLHA O QUE VO¬ 
CE QUER:" 

90 PRINT 

100 PRINT "1 = CARA 2 = COROA" 
110 PRINT 

120 PRINT "DIGITE UM NUMERO 1 
OU 2" 

130 INPUT JOGO 
140 IF JOGO < 1 THEN GOTO 120 
150 IF JOGO > 2 THEN GOTO 120 
160 REM 

170 REM - SORTEIO DA MOEDA 
180 REM 

190 LET FACE = 1 + INT (RND*2) 
200 PRINT 

210 IF FACE = 1 THEN PRINT "SAIU 
CARA" 

220 IF FACE = 2 THEN PRINT "SAIU 
COROA" 

230 REM 

240 REM - VERIFICA QUEM GA- 
NHOU 
250 REM 
260 PRINT 

270 IF JOGO = FACE THEN 300 
280 PRINT "EU GANHEI" 

290 GOTO 310 

300 PRINT "VOCE GANHOU" 

310 STOP 



ogos interativos 


Um jogo que sb pode sortear coisas 
ndo e muito interessante, pois logo a 
gente se cansa. Alem disso, e mais 
divertido usar uma moeda, um dado 
ou um baralho de verdade! 

A grande vantagem que o compu¬ 


tador oferece na programagdo de jo¬ 
gos e sua interagdo com a pessoa. Po- 
demos fazer com que o computador 
jogue com uma pessoa para ver quern 
ganha. 


Programar um jogo deste tipo b fd- 
cil. Basta usar os comandos: 

RND - para sortear alguma coisa 
INPUT - para pegar respostas (ou jo- 
gadas) do usudrio. 

IF - para testar se b igual ou di- 
ferente do sorteado 


Para jogar outra partida, digite 
RUN novamente ou entdo modifique 
o programa, substituindo a linha 310 
por 


310 GOTO 70 

Vamos fazer agora um jogo um 
pouco mais sofisticado: 

OBJETIVO DO JOGO 
"CARA OU COROA" N? 2: 

O computador pergunta d pessoa o 
que ird aparecer: cara ou coroa. Em 
seguida, sorteia a moeda e mostra se 
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a pessoa acertou. Ossorteiossaore- 
petidosn vezes. Ganha quem acertar 
maior numero de vezes. 

Nao precisa apagar da memoria do 
oomputador o jogo anterior. Basta 
modificar ou inserir as linhas que sSo 
diferentes na listagem abaixo: 


10 REM - JOGO DE CARA OU 
COROA N? 2 

20 REM. 

30 REM 
40 RAND 

42 LET NCOMP = 0 

44 LET NJOG = 0 

50 PRINT "CARA OU COROA" 

60 PRINT “= = = = = = = = = =" 
62 PRINT "QUANTAS VEZES 
QUER JOGAR ?" 

64 INPUT NV 
66 FOR N = 1 TO NV 
70 PRINT 

75 PRINT “JOGADA N?" ; N 
80 PRINT "ESCOLHA O QUE VO¬ 
CE QUER 
90 PRINT 

100 PRINT "1 = CARA 2 = CO¬ 
ROA" 

110 PRINT 

120 PRINT "DIGITE UM NUMERO 1 
OU 2" 

130 INPUT JOGO 

140 IF JOGO < 1 THEN GOTO 120 
150 IF JOGO > 2 THEN GOTO 120 
160 REM 

170 REM - SORTEIO DA MOEDA 
180 REM 

190 LET FACE = 1 + INT (RND * 2) 
200 PRINT 

210 IF FACE= 1 THEN PRINT "SAIU 
CARA" 

220 IF FACE = 2 THEN PRINT "SAIU 
COROA" 

230 REM 

240 REM - VERIFICA QUEM GA- 
NHOU 
250 REM 
260 PRINT 

270 IF JOGO = FACE THEN 300 
280 PRINT "EU GANHEI" 

285 LET NCOMP = NCOMP + 1 
290 GOTO 310 

300 PRINT "VOCE GANHOU" 

305 LET NJOG = NJOG + 1 
310 NEXT N 
320 REM 

330 REM - VERIFICA NUMERO FI¬ 
NAL DE PONTOS 
340 REM 

350 PRINT "EU ACERTEI"; 

NCOMP;" VEZES" 

360 PRINT "VOCE ACERTOU" 
;NJOG;" VEZES" 

370 PRINT 

380 IF NJOG > NCOMP THEN 
PRINT "PARABENS, VOCE GA¬ 
NHOU" 


390 IF NJOG < NCOMP THEN 
PRINT "EU SOU O CAMPEAO" 
400 IF NJOG = NCOMP THEN 
PRINT "EMPATE" 

410 STOP 

As diferengas entre este programa 
e o numero 1 sao as seguintes: 

- a variavel NCOMP, zerada na linha 
42, servira para contar o numero de 
vitorias do computador; 

- a variavel NJOG, zerada na linha 
44, servira para contar o numero de 
vitorias do jogador; 

- a variavel NV indica o numero de 
sorteios que serao realizados e que 
controla a alga que vai da linha 66 ate 
a linha 310 


1. Faga urn programa de cara ou co- 
roa semelhante ao anterior, usando, 
porem, urn dado, ao mves de uma 
moeda. 

Dicas: Na linha 130 a pessoa deve 
entrar um numero de 1 a 6. Modifi- 
que as linhas anteriores (para instru- 
goes) e a linha 150 (teste): 

-modifique a expressao da linha 
190; 

- modifique as linhas 210 e 220 que 
anuciam o resultado; 

- modifique as linhas de titulo. 


2. Faga um programa que sorteie 
dois dados, e mostre a soma dos nu- 
meros sorteados. Se a soma for igual 
a 7, pare de sortear. Se for diferente 
de 7, sorteie novamente. 

3. Faga um programa que sorteie as 
cartas de um baralho completo, per- 
guntando antes ao jogador qual nai- 
pe ele acha que saira sorteado. 

4. Explique por que o seguinte pro¬ 
grama pode ser usado para substituir 
o comando RAND, em computadores 
que nao o possuem: 


- nas linhas 285 e 305 sao incrementa- 
das as contadoras NCOMP e NJOG, 
conforme o ganhador tenha sido o 
computador ou o jogador, respecti- 
vamente; 

- as linhas 320 a 400 servem para 
anunciar 6 resultado final. 

Com alguma imaginagao voce 
conseguira aperfeigoar este jogo ate 
que ele se torne realmente emocio- 
nante. 


10 PRINT "QUE HORAS SAO 
(HH.MM)" 

20 INPUT H 

30 FOR 1 = 1 TO INT (H*10 ) 

40 LET R = RND 
50 NEXT I 


5. Faga um programa para simular o 
seguinte jogo ("Porquinho"): o com¬ 
putador sorteia um dado varias ve¬ 
zes. O numero de pontos de cada 
langamento e acumulado com os dos 
langamentos anteriores. Depois de 
cada langamento, o programa per- 
gunta ao jogador se quer continuar 
ou desistir. Se o jogador desistir, fica 
com o numero acumulado de pontos 
ate aquele momento. Se continuar, 
entretanto, caso o computador sor¬ 
teie o numero 1, perde tudo o que ja 
acumulou antes. Ganha quem acu- 
mular mais pontos. 

Dica: Use um acumulador chamado 
SOMA. No final de cada sorteio, per- 
gunte: 


QUER CONTINUAR 
(SIM OU NAO)? 

e verifique se a resposta foi "SIM" ou 
"NAO". 



60 











*■ 


luxogramas 



( INICIO 

C = 25 + 3*B 

L= F 


O comando IF 6 representado por 
um lozango que contem a condigao. 


Nesta segao, vamos aprender uma 
nova maneira de planejar progra- 
mas. Voce deve ter notado que, 
quando o programa tem uma logica 
muito complexa, ou seja, tem muitos 
desvios condicionais e incondicionais 
(IF, GOTO etc.) fica muito dificil vi- 
sualizar quais os caminhos que o pro- 
grama deve seguir. 

O planejamento previo do progra- 
ma, nestes casos, e uma atividade 
muito importante, porque auxilia o 
programador a desenvolver progra- 
mas: 

- mais facilmente escritos na lingua- 
qem BASIC; 

- mais livres de erros, ou seja, com 
pouco ou nenhum erro, quando 
testados pela primeira vez; 

. Qujos erros sao facilmente encon- 
trados, corrigidos etc.; 

- mais simples e compactos, ou seja, 
facilmente compreenslveis, efi- 
cientes e que ocupam um espago 
menor de memoria. 

Se digitamos um programa no 
computador, 3 medida que as ideias 
vem a nossa cabega, ha uma grande 
probabilidade de que este programa 
fique confuso, cgm erros e de dificil 
compreensao. Emfeora muitas vezes 
ele faga corretamente o trabalho para 
o qual foi destinado, nem sempre o 
faz da forma mais eficiente. 

Tudo isto e especialmente mais evi- 
dente em relagao aos programas com 
logica mais complexa. 

Um modo eficaz de planejar pro¬ 
gramas deste tipo e o denominado 
FLUXOGRAMA, tambem chamdo 
de DIAGRAMA DE BLOCO. 



O comando STOP e representado 
por esta figura: 


FIM 


O comando INPUT b representado 
pelo perfil de um teclado que traz o 
nome da vari3vel: 



E o comando PRINT 6 representa¬ 
do por uma tela de video: 


"JOGUE DE NOVO" 


Existem muitos outros simbolos que 
posteriormente conheceremos. 


"GRAUS FAHRENHEIT 


T 


T 


C = 5/9*(F-32) 


T 


(f ; " GRAUS F = ";C;" GRAUS C" 

t t 


fim 


Observe que todo fluxggrama tem 
obrigatoriamente um INlClO e um 
FIM, marcados pelos simbolos cor- 
respondentes. Eles nao precisam ser 
necessariamente representados na 
listagem, como abaixo: 

10 PRINT ''GRAUS FAHRENHEIT?" 

20 INPUT F 

30 LET C = 5/9*(F-32) 

40 PRINT F; "GRAUS F = ”; C; 

GRAUS C" 


O fluxograma 6 uma forma de re- 
presentar graficamente (por simbolos 
ou figuras) a estrutura e o fluxo de 
um proqrama. 

Cada parte do programa (geral- 
mente cada linha) 6 representada por 
um simbolo especial, que correspon- 
de estreitamente ao tipo de comando 
ou instrugcio a ser usado. Estes simfoo- 
los sao denominados blocos. 

Por exemplo, o comando LET e re¬ 
presentado por uma caixinha , ou 
retangulo, que contem a expressao 
ou atribuigSo a ser realizada. 


Estes simbolos sSo dispostos no pa- 
pel em seqiiencia, de cima para bai- 
xo, representando os sucessivos co- 
mandos que comporSo o programa. 
Para indicar o fluxo ou diregao de um 
comando para outros, usam-se sinais 
em forma de seta. 

Muitos programas tem uma l&Qico 
linear . (Isto quer dizer que eles nao 
tem bifurcagOes ou desvios atrav^s de 
IFs ou GOTOs. E o caso do programa 
abaixo, que serve para converter 
graus Fahrenheit em Celsius (escalas 
de medida de temperatura): 


Vamos ver agora um exemplo com- 
pleto de programagao bem simples, 
para entender como e feito o fluxo¬ 
grama para programas com desvios. 

Vamos fazer um programa para 
testar se um determinado numero di- 
gitado pelo usuario 6 negativo, posi- 
tivo ou zero (j£ estudamos este exem¬ 
plo no capitulo anterior, as paginas 
37 e 38). 

O fluxograma ficaria assim (veja os 
comentarios a direita): 
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^ FIM ) 


inicio do programa 


mensagem para o usuario 


entra um numero 


testa se e negativo 


mensagem 


testa se e positivo 


mensagem 


mensagem se e zero 


fim do programa 


Como vemos, 6 bastante facil vi- 
sualizar todas as alternativas a cada 
teste. Cada teste tem apenas duas sai- 
das: verdadeira (SIM), que geral- 
mente 6 colocada a direita do simbo- 
lo do IF, ou falsa (NAO), que e colo¬ 
cada logo abaixo. 

Para iniciar a codificagao em BA¬ 
SIC, basta numerar os simbolos se- 
quencialmente, prestando atengao 
aos desvios. A numeragao e colocada 
ao lado de cada simbolo: 
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INICIO 


a 


ENTRE UM NUMERO QUALQUER" 


3 


10 




Agora fica muito mais facil escre- 
ver o programa: 

10 PRINT "ENTRE UM NUMERO 
QUALQUER" 

20 INPUT N 

30 IF N < 0 THEN GOTO 70 
40 IF N>0 THEN GOTO 90 
50 PRINT "NUMERO ZERO" 

60 GOTO 100 

70 PRINT "NUMERO NEGATIVO" 
80 GOTO 100 

90 PRINT "NUMERO POSITIVO" 
100 STOP 


Observe gue foi necesscirio usar 
apenas dois comandos IF para testar 
tres condigOes. Os comandos GOTO 
das linhas 60 e 80 tem sua necessida- 
de deduzida a partir do exame do flu- 
xograma, e nao precisam ser especi- 
ficados nele (embora nao seja proibi- 
do). 

O simbolo do comando GOTO e 
um ci'rculo pegueno: 





Outros simbolos bastante usados 
para fluxogramas de programagao: 

Impressao em impressora (parece 
uma folha de papel rasgada): 


"RESULTADOS = MEDIA 
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0 comando FOR d representado 
por esta figura: 


1=1 TO 10^ 


0 comando NEXT correspondente 
tem o mesmo sfmbolo do GOTO: 



Eles sao ligados por uma linha in- 
terrompida: 



Se o desenho ndo cabe em uma 
unica folha de papel, podemos usar o 
seguinte simbolo para indicar uma 
continuagdo ou mudonga de pdgina : 



Com o tempo, voc& terd oportuni- 
dade de usar todos estes simbolos. 

Uma boa iddia d adquirir uma rd- 
guo ou gabarito de fluxogramas, em 
papelarias ou casas especializadas 
em materiais para desenho. Ela jd 
tem os elementos vazados para os 
simbolos de programagdo 


De agora em diante, procure sem- 
pre desenhar um fluxograma para 
cada programa, antes de tentar 
escrev4-lo em BASIC. 

Isto vai aumentar muito a qualida- 
de e corregSo de seus programas. 



m jogo de 
adivinha£do 


Voce agora tem a possibilidade de 
programar uma variedade enorme de 
jogos de sorte ou azar. Alguns deles 
sao bastante simples, mas muito di- 
vertidos, e chegam mesmo a ser edu- 
cativos. 

£ o caso do jogo de adivinhagao 
chamado Maior ou Menor?, que va- 
mos mostrar agora como programar, 
e que serve para ensinar estes con- 
ceitos as criangas. 

O funcionamento do jogo d o se- 
guinte: 

O computador informa d crianga 
que estd pensando em um numero si- 
tuado entre 1 e 10. Em que numero 
ela acha que ele esta "pensando"? 

Se a resposta que a crianga der 
nao for correta, o programa informa 
se o numero a muito baixo ou muito 
alto, e pergunta novamente. 

Quando a crianga acertar, o pro¬ 
grama informa quantas tentativas fo- 
ram necessarias. 

Este jogo a educativo tambam em 
outro sentido. Existe uma estratagia 
para acertar em menor numero de 
vezes possfvel. Podemos deixar a 
crianga jogar e descobrir sozinha 
qual a esta estratagia; ou entao 
ensind-la depois de certo tempo e ver 
se ela a aplica corretamente. 


Depois veremos qual a esta estrata¬ 
gia! 


Planejando o jogo 

O programa ter£ as seguintes fa- 
ses: 

1. mostra na tela o tftulo do jogo e as 
instrugOes iniciais; 

2. sorteia um numero aleatbrio entre 
1 e 10; 

3. pergunta um numero para o joga- 
dor; 

4. testa se este numero a igual, me¬ 
nor ou maior do que o sorteado; 

5. se for igual, o jogador acertou. In¬ 
forma quantas tentativas precisou 
para acertar; 

6. se for maior ou menor, informa 
atrav.as de uma mensagem, e volta 
para o passo 3. Incrementa o nu¬ 
mero de tentativas. 

As varidveis do programa poderSo 
ser as seguintes: 

NS - numero sorteado 

A - adivinhagao do jogador 

NT - numero de tentativas 


Gabarito para desenho 
de fluxogramas 
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Fluxograma 
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JOGO DE ADIVINHACAO 


Codif icagao em BASIC 






10 PRINT "JOGO DE ADIVINHA¬ 
CAO'' 

15 PRINT "= = = = = = = = 


20 PRINT 

25 PRINT "EU VOU PENSAR EM 
UM NUMERO DE 1 A" 

30 PRINT "10. GANHA QUEM 
ADIVINHAR EM MENOS" 

35 PRINT "TENTATIVAS." 

38 PRINT 
40 LET NT = 0 

45 LET NS =1 + INT (RND*10 ) 

50 PRINT "EM QUE NUMERO ES- 
TOU PENSANDO?" 

60 INPUT A 
65 PRINT A 

70 IF NS < A THEN GOTO 110 
80 IF NS>A THEN GOTO 120 
90 PRINT "ACERTOU EM ";NT;" 

TENTATIVAS" 

100 STOP 

110 PRINT "ERROU. TENTE UM 
NUMERO MENOR" 

115 GOTO 130 

120 PRINT "ERROU. TENTE UM 
NUMERO MAIOR" 

130 LET NT = NT+1 
140 GOTO 50 


Exemplo de um jogo 


EU VOU PENSAR EM UM NUMERO DE 1 A 10. 
GANHA QUEM ADIVINHAR EM MENOS TENTA¬ 
TIVAS. 


EM QUE NUMERO ESTOU PENSANDO? 6. ER¬ 
ROU. TENTE UM NUMERO MENOR. EM QUE NU¬ 
MERO ESTOU PENSANDO? 3. ERROU. TENTE 
UM NUMERO MAIOR. EM QUE NUMERO ESTOU 
PENSANDO? 





JOGO DE ADIVINHACAO 


EU VOU PENSAR EM UM NUMERO DE 1 A 1 0 . 
GANHA QUEM ADIVINHAR EM MENOS TENTA- 
I TIVAS. 

EM QUE NUMERO ESTOU PENSANDO? 6. ER 
ROU. TENTE UM NUMERO MENOR. EM QUE NU¬ 
MERO ESTOU PENSANDO? 3. ERROU. TENTE 
| UM NUMERO MAIOR. EM QUE NUMERO ESTOU 
PENSANDO? 4. ACERTOU EM 3 TENTATIVAS 




JOGO DE ADIVINHACAO 


EU VOU PENSAR EM UM NUMERO DE 1 A 1 0 . 
GANHA QUEM ADIVINHAR EM MENOS TENTA 
TIVAS. 

EM QUE NUMERO ESTOU PENSANDO? 


6 0 



EU VOU PENSAR EM UM NUMERO DE 1 A 1 0 . 
GANHA QUEM ADIVINHAR EM MENOS TENTA¬ 
TIVAS. 


EM QUE NUMERO ESTOU PENSANDO? 6. ER 
ROU. TENTE UM NUMERO MENOR. EM QUE NU 
MERO ESTOU PENSANDO? 



Coloque o programs no computa- 
dor e experimente v&rias vezes. 

Sugestoes para modificar 
o programa 

1. Coloque os numeros rmnimos e 
m£ximos (no exemplo, 1 e 10) como 
vari^veis dentro do programs, po- 
dendo ser especificadas pelos co- 
mandos INPUT, logo no inicio do 
programa. 

2. Faga o jogador colocar o seu nome 
no inicio do programa e depois po- 
nha este nome nas mensagens de er- 
ro e acerto. 

3. Coloque no lugar do comando 
STOP uma pergunta: 

QUER JOGAR MAIS UMA VEZ 
(SIM OU NAO)? 

4. Estenda o programa de modo a 
permitir a participagao de dois joga- 
dores, um competindo contra o outro 
(ganha quern adivinhar em menor 
numero de tentativas). 

5. Estenda o programa para adivi- 
nhagao de letras do alfabeto (A, B, 
C, D etc.), ao inv6s de numeros. 




















Fluxograma 



nsinando tabuada 
pelo computador 


Uma boa aplicagao para a fungao 
RND £ a criagao de um grande nume- 
ro de problemas de matematica, com 
dados diferentes de cada vez. Esta 6 
uma aplicagao educativa do compu¬ 
tador, pois permite ao aluno fazer 
muitos exercfcios. Al£m disso, cada 
aluno recebe um conjunto de exerci- 
cios totalmente diferente dos demais. 
Podemos tamb£m fazer o computador 
dar notas aos alunos, dependendo do 
numero de problemas que ele acerta. 

Vamos agora desenvolver juntos 
um programa para apresentar dez 
problemas de tabuada de multiplica- 
gao, sendo um dos fatores de multi- 
plicagSo gerado ao acaso, entre 1 e 
10. Ap6s a apresentagao de cada 
problema, a resposta £ colhida e 
comparada com a resposta certa. No 
final £ atribuida uma nota ao aluno. 


Planejamento do programa 

As fases do programa serao: 

1. mostrar o titulo do programa e seu 
objetivo; 

2. perguntar ao aluno que tabuada 
ele quer estudar; 

3. sortear um numero de 1 a 10; 

4. mostrar na tela o problema: ta¬ 
buada x numero sorteado; 

5. entrar a resposta do aluno; 

6. testar se a resposta do aluno esta 
correta; 

7. se estiver correta, dar os para- 
b£ns e incrementar o contador de 
numero de respostas corretas; 

8. se estiver errada, mostrar o resul- 
tado correto; 

9. voltar para o passo 3, at£ que se 
esgotem os dez problemas; 

10. apresenta a nota final. 

As variciveis poderao ser: 

T - tabuada que quer estudar 
NA - numero de acertos 
F - fator de multiplicagao sorteado 
R - resposta do aluno 
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Codifica^do em BASIC 


RESPOSTAS AOS 
EXERCICIOS 
ANTERIORES 


10 PRINT "TABUADA" 

15 PRINT''= ======" 

20 PRINT 

25 PRINT "VAMOS ESTUDAR TA¬ 
BUADA DE VEZES" 

30 PRINT "EU APRESENTO UMA 
CONTA PARA VOCE" 

35 PRINT "FAZER, E VOCE RES- 
PONDE, TA?" 

37 PRINT 

40 PRINT "QUE TABUADA QUER 
ESTUDAR?" 

50 INPUTT 
60 LET T = INT(T) 

70 IF T<2 THEN GOTO 40 

80 FOR 1=1 TO 10 

85 LET F = 1 + INT (RND*10 ) 

90 CLS 

95 PRINT F;"X";T;"?"; 

100 INPUT R 
105 PRINT R 

110 IF R = F*T THEN GOTO 140 
120 PRINT "ERROU. O RESULTA- 
DO E ”;F*T 
130 GOTO 160 
140 PRINT "ACERTOU" 

150 LET NA = NA + 1 
160 PAUSE 200 
170 NEXT I 

180 PRINT "SUA NOTA FOI ";NA 
190 STOP 


Coloque o programa no computa- 
dor e exercite com ele. 


Sugestoes para modificar 
o programa 

1. Coloque o numero de problemas 
(no exemplo, 10) como variavel den- 
tro do programa, podendo ser espe- 
cificado pelo comando INPUT, logo 
no inicio do programa. 

2. Faga o aluno colocar o seu nome 
no inicio do programa, e depois po- 
nha este nome nas mensagens de er- 
ro e acerto. 

3. Cologue no lugar do comando 
STOP uma pergunta: 

QUER TENTAR MAIS UMA VEZ 
(SIM OU NAO)? 

4. Estenda o programa de modo a fa- 
zer com que os dois fatores de multi- 
plicagao variem aleatoriamente. 

5. No lugar de mensagem de acerto 
ou erro, coloque a figura grdfica de 
um palhacinho rindo ou chorando, 
respectivamente. 


Paginas 51/52 

1. Faga um programa para calcular a 
soma dos numeros inteiros de 1 a 100. 


Resposta: 

Versao 1 (usando IF): 

10 LET SOMA = 1 

20 LET N = 1 

30 LET N = N +1 

40 IF N> 100 THEN GOTO 70 

50 LET SOMA = SOMA + N 

60 GOTO 30 

70 PRINT SOMA 

Versao 2 (usando FOR): 

10 LET SOMA = 0 
20 FOR N = 1 TO 100 
30 LET SOMA = SOMA + N 
40 NEXT N 
50 PRINT SOMA 


2. Modifique o programa acima, de 
modo a poder calcular a soma dos 
numeros inteiros de 1 a um numero 
qualquer. 

Resposta: 

5 PRINT "ENTRE O NUMERO MA¬ 
XIMO PARA A SERIE:" 

8 INPUT MX 
10 LET SOMA = 0 
20 FOR N=1 TO MX 
30 LET SOMA = SOMA + N 
40 NEXT N 
50 PRINT SOMA 

3. Faga um programa como o acima, 
para calcular o fatorial de um nume¬ 
ro inteiro qualquer (N!). 

Resposta: 

10 PRINT "QUE NUMERO QUER O 
FATORIAL?" 

20 INPUT N 
30 LET PROD = 1 
40 FOR 1 = 2 TO N 


50 LET PROD = PROD *N 
60 NEXT I 

50 PRINT "FATORIAL DE N = 
";PROD 

8. Faga um programa para aceitar 
um nome qualquer pelo teclado, e 
em seguida faze-lo piscar dez vezes 
seguidas, no meio da primeira linha 
da tela. 

Resposta: 

10 PRINT "ENTRE UM NOME 
QUALQUER:" 

20 INPUT N$ 

30 LET N = 0 
40 CLS 

50 PRINT TAB (12);N$ 

60 PAUSE 30 
70 LET N = N +1 
80 IF N < 10 THEN GOTO 40 
90 STOP 


9. Faga um programa para calcular a 
soma de dez numeros quaisquer, di- 
gitados pelo teclado. 


Resposta: 


10 LET SOMA = 0 
20 FOR 1 = 1 TO 10 
30 PRINT "ENTRE A PARCELA 
NO.";I, 

40 INPUT P 
45 PRINT P 

50 LET SOMA = SOMA + P 
60 NEXT I 
70 PRINT SOMA 
80 STOP 


10. Faga um programa para imprimir 
uma tabela das raizes quadradas dos 
numeros de 10 a 1000, de 10 em 10. 

Resposta: 

10 PRINT ”N", "RAIZ QUADRADA" 
20 FOR N = 10 TO 1000 STEP 10 
30 PRINT N,SQR(N) 

40 NEXT N 
50 STOP 
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Pagina 69 

9.17. Faga um programa para ge- 
rar na tela todas as combmagoes pos- 
siveis de preenchimento do cartao da 
Loteria Esportiva. 

Solugao: 

10 LET N = 0 
20 FOR 1=1 TO 3 
30 FOR J = I TO 3 
40 LET N = N +1 

50 PRINT N;" - COLUNA ";I 
60 IF 1 = J THEN GOTO 80 
70 PRINT " COLUNA ";J 
80 NEXT J 
90 NEXT I 

Nota: Este programa gerara todas 
as combinagoes 1, 1-2, 1-3, 2, 2-3 e 3, 
mas nao gerara a marcagao tripla, 1- 
2-3. 

9.20. Faga um programa para apre- 
sentar na tela tres exerclcios de ta- 
buada de multiplicar e para testar se 
o resultado apresentado pelo aluno 
foi correto. O programa deve dizer, 
no fim, quantos exerclcios foram re- 
solvidos corretamente pelo aluno. 


Paginas 62/63 

1. Faga um programa para simular 
varias vezes o sorteio de uma moeda. 


Resposta: 

10 PRINT "SORTEIO DE UMA 
MOEDA" 

15 RAND 
20 PRINT 

30 PRINT "QUANTAS VEZES?" 

40 INPUT N 
50 FOR 1 = 1 TON 
60 IF RND>0.5 THEN 90 
70 PRINT "CARA" 

80 GOTO 100 
90 PRINT "COROA" 

100 NEXT I 


RESPOSTAS AO 
TESTE 
ANTERIOR 


Solugao: 

10 PRINT "3 EXERCICIOS DE TA- 
BUADA" 

20 PRINT 
25 LET N = 0 
30 PRINT "3x4?" 

40 INPUT R 

50 IF R<>12 THEN GOTO 90 
60 LET N = N +1 
70 PRINT "ACERTOU" 

80 GOTO 100 
90 PRINT "ERROU" 

100 PRINT "8x6?" 

120 INPUT R 

130 IF R<>48 THEN GOTO 170 

140 LET N = N +1 

150 PRINT "ACERTOU" 

160 GOTO 180 
170 PRINT "ERROU" 

180 PRINT "7x4?" 

190 INPUT R 

200 IF R<>28 THEN GOTO 240 

210 LET N = N + 1 

220 PRINT "ACERTOU" 

230 GOTO 250 
240 PRINT "ERROU" 

250 PRINT 

260 PRINT "VOCE ACERTOU 
";N;" PROBLEMAS" 

270 STOP 


RESPOSTAS AOS 
EXERCICIOS 
ANTERIORES 


2- Modifique o programa acima para 
contar quantas vezes saiu cara e 
quantas vezes saiu coroa, informando 
o resultado no iim. 


Resposta: 

10 PRINT "SORTEIO DE UMA 
MOEDA" 

15 RAND 
20 PRINT 

30 PRINT "QUANTAS VEZES?" 

40 INPUT N 
42 LET CA = 0 
44 LET CO = 0 
50 FOR 1 = 1 TON 
60 IF RND>0.5 THEN 90 
70 PRINT "CARA" 

75 LET CA = CA +1 
80 GOTO 100 
90 PRINT "COROA" 


Observagao: Note como esta e uma 
maneira pouco eficiente de fazer um 
programa que apresenta programas 
repetitivamente. Um programa muito 
mais curto seria: 

10 PRINT "PROBLEMAS DE TA- 
BUADA" 

20 PRINT 

50 PRINT "QUE TABUADA?" 

60 INPUTT 
65 LET N = 0 
70 FOR 1 = 1 TO 10 
80 CLS 

90 PRINT T;"X ";I;" ? " 

100 INPUT R 

110 IF ROI'T THEN GOTO 130 

120 LET N = N + 1 

125 GOTO 140 

130 PRINT "ERRADO" 

140 NEXT I 
150 PRINT 

160 PRINT VOCE ACERTOU ";N;" 

PROBLEMAS 
170 STOP 


95 LET CO = CO +1 
100 NEXT I 
110 CLS 

120 PRINT "SORTEIO DE UMA 
MOEDA ";N," VEZES" 

130 PRINT 

140 PRINT "SAIRAM ";CA;" CA¬ 
RAS (”;CA/N*100 ;" %)" 

150 PRINT "SAIRAM";CO," CO- 
ROAS (";CO/N*100 ;" %)" 

160 STOP 

5. Faga um programa para sortear as 
cartas de um baralho, mostrando o 
seu valor ou figura na tela. 

Resposta: 

10 REM — SORTEIO DE UM BA¬ 
RALHO 

20 REM — PARA MICROS TIPO 
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SINCLAIR ZX81 

30 REM - JANEIRO 85 - (C) R. 
SABBATINI 

40 REM. 

50 REM 
54 RAND 
56 REM 

60 REM — TITULO E DADOS 
70 REM 

80 PRINT "JOGO DE SORTEIO 
DE CARTAS" 

90 PRINT "============ 


100 PRINT 

110 PRINT "QUANTAS CARTAS 
QUER SORTEAR?" 

120 INPUT NC 

130 LET NC = INT (NC) 

140 IF NC <1 THEN GOTO 110 
150 REM 

160 REM — ALCA DE SORTEIO 
DAS CARTAS 
170 REM 

180 FOR 1=1 TO NC 

190 LET C = 2 + INT (RND * 11) 

200 LET N = 1 + INT (RND * 4) 

210 REM' 

220 REM — MOSTRA O RESULTA- 
DO 
230 REM 

240 PRINT "A CARTA SORTEADA 
FOI"; 

250 IF C <11 THEN GOTO 310 
252 REM 

254 REM — MOSTRA VALOR DA 
CARTA 
256 REM 

260 IF C = 11 THEN PRINT "VALE- 
TE"; 

270 IF'C = 12 THEN PRINT 
"DAMA" 

280 IF C = 13 THEN PRINT "REI"; 
290 IF C = 14 THEN PRINT "AS"; 
300 GOTO 330 
310 PRINT C; 

330 PRINT " DE 
340 REM 

350 REM — IMPRIME NAIPE 
360 REM 

370 IF N = 1 THEN PRINT "ESPA- 
DAS" 

380 IF N = 2 THEN PRINT "COPAS" 
390 IF N = 3 THEN PRINT "PAUS" 
400 IF N = 4 THEN PRINT 
"OUROS" 

410 NEXT I 
420 STOP 

6. Faga um programa para imprimir 
20 sorteios de um numero aleatorio R, 
calculando e imprimindo em cada 
sorteio as seguintes transformagoes 
do programa: R * 10, 1 + INT(R*10 ), 
10 +INT(R*10) 

Resposta: 

10 RAND 


20 FOR 1 = 1 TO 20 
30 LET R = RND 

40 PRINT R*10 ;1 + INT(R*10 ); 

10 +INT(R*10) 

50 NEXT I 
60 STOP 

Pagina 64 

2. Fag a um programa que sorteie 
dois dados, e mostre a soma dos nu- 
meros sorteados. Se a soma for igual 
a 7, pare de sortear. Se for diferente 
de 7, sorteie novamente. 

Resposta: 

10 PRINT "O JOGO DOS 2 DA¬ 
DOS" 

20 PRINT 
30 RAND 

40 LET D1 = 1 + INT(RND*6) 

50 LET D2 = 1 + INT(RND*6) 

60 LET SOMA = D1 + D2 
70 IF SOMA = 7 THEN STOP 
80 GOTO 40 

3. Faga um programa que sorteie as 
cartas de um baralho completo, per- 
guntando antes ao jogador qual nai- 
pe ele acha que saira sorteado. 

Resposta: 

Vamos aproveitar o programa do 
exercicio 5, mostrado anteriormente. 

As linhas novas sao: 182, 183, 184, 
402 e 404 

10 REM — SORTEIO DE UM BA¬ 
RALHO 

20 REM — PARA MICROS TIPO 
SINCLAIR ZX81 

30 REM — JANEIRO 85 - (C) R. 
SABBATINI 

40 REM. 

50 REM 
54 RAND 
56 REM 

60 REM — TITULO E DADOS 
70 REM 

80 PRINT "JOGO DE SORTEIO 
DE CARTAS" 

90 PRINT "============ 


100 PRINT 

110 PRINT "QUANTAS CARTAS 
QUER SORTEAR?" 

120 INPUT NC 

130 LET NC = INT (NC) 

140 IF NC < 1 THEN GOTO 110 
150 REM 

160 REM - ALCA DE SORTEIO 
DAS CARTAS 
170 REM 

180 FOR 1=1 TO NC 

182 PRINT "QUE NAIPE VAIDAR? 

183 PRINT ”1 = ESPADAS, 2 = CO¬ 


PAS, 3 = PAUS, 4 = OUROS" 
184 INPUT A 

190 LET C = 2 + INT (RND * 11) 
200 LET N = 1 + INT (RND * 4) 

210 REM 

220 REM — MOSTRA O RESULTA- 
DO 
230 REM 

240 PRINT "A CARTA SORTEADA 
FOI"; 

250 IF C < 11 THEN GOTO 310 
252 REM 

254 REM — MOSTRA VALOR DA 
CARTA 
266 REM 

260 IF C = 11 THEN PRINT "VALE- 
TE"; 

270 IF C = 12 THEN PRINT 
"DAMA"- 

280 IF C = 13'THEN PRINT ”REI"; 
290 IF C = 14 THEN PRINT "AS"; 
300 GOTO 330 
310 PRINT C; 

330 PRINT " DE 
340 REM 

350 REM — IMPRIME NAIPE 
360 REM 

370 IF N= 1 THEN PRINT "ESPA¬ 
DAS" 

380 IF N = 2 THEN PRINT "COPAS" 
390 IF N = 3 THEN PRINT "PAUS" 
400 IF N = 4 THEN PRINT 
"OUROS" 

402 IF N = A THEN PRINT "ACER- 
TOU" 

404 IF N <> A THEN PRINT "ER- 
ROU" 

410 NEXT I 


5. Faga um programa para simular o 
seguinte jogo ("Porquinho"). Vejao 
enunciado completo. 


10 

REM — JOGO DO PORQUI- 


NHO 


20 

REM.. 


30 

REM 


35 

PRINT "VAI ROLAR 
DADO..." 

O 

37 

PRINT 


40 

RAND 


50 

LET SOMA = 0 


60 

LET D = 1 + INT(RND*6) 


65 

PRINT "SAIU O NUMERO 

";D 

70 

IF D = 1 THEN GOTO 160 

80 

LET SOMA = SOMA + D 


90 

PRINT "VOCE AGORA TEM 


";SOMA;" PONTOS." 

100 PRINT 

110 PRINT "QUER CONTINUAR 
(SIM OU NAO)?" 

120 INPUT R$ 

130 IF R$ = "SIM" THEN GOTO 60 
140 PRINT "COVARDE..." 

150 STOP 

160 PRINT "PERDEU TUDO..." 

170 STOP 
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C A P I T U L O 



S TABELAS DO 
COMPUTADOR 


Ate agora, voce ja viu como podemos 
armazenar valores na memoria do com- 
putador, pelo uso das variaveis. 

Rememorando, uma variavel e um no- 
me simbdlico, dado pelo programador 
a uma ou mais memorias do computa- 
dor, de modo a indicar onde serci arma- 
zenado um determinado valor. Ate ago¬ 
ra, aprendemos que existem em BASIC 
dois tipos fundamentals de variaveis: 

- as variaveis numericas > 

- as variaveis literais (ou alfanum&- 
ricas) 

As variaveis numericas servem apenas 
para armazenar numeros. Por exemplo: 


verci ser usada para armazenar caracte- 
res e nao valores numericos. (Por exten- 
sao, dizemos que esse tipo de variavel 
serve para armazenar valores literais, 
embora eles nao sejam exatamente 
valores.) 

Al6m disso, podemos ver, pelo tercei- 
ro exemplo, que e possi'vel armazenar 
caracteres graficos dentro de uma varia¬ 
vel literal. Para conseguir isto no TK 85, 
basta pressionar as teclas SHIFT e 9, lo¬ 
go depois de termos digitado o primei- 
ro sinal de aspas: 



5 LET NUM = 12.6 
15 LET MEDIA = (N1 + N2)/2 

No primeiro exemplo, estamos dando 
ao computador uma instrugao para ar¬ 
mazenar o valor numerico 12.6 na varia¬ 
vel que chamamos de NUM. 

No segundo exemplo, estamos dando 
uma instrugao para armazenar na varia¬ 
vel chamada MEDIA, o resultado da ex- 
pressao aritmetica h direita do sinal de 
igualdade (que por sua vez esta usando 
o conteudo de duas outras memorias, ou 
seja, N1 eN2). 


Esta combinagao de teclas causa o 
aparecimento do cursor G na linha de 
entrada, o que possibilita a digitagao de 
caracteres graficos, a partir daf: 



As variaveis literais, por sua vez, ser¬ 
vem para armazenar palavras frases, 
etc., ou qualquer outra seqiiencia de 
simbolos que o computador consiga ge- 
rar. Por exemplo: 

12 LET NOME$ = "TANCREDO 
NEVES" 

15 LET ESPACO$ = u 

20 LET XINGA$ = ??" 

30 LET AVIAO$ = 


Como mostramos a seguir: 


[30 LET AVI AO $ = " ■ \G\ 


Observe que e necessario colocar o si¬ 
nal de cifrao ($) no final do nome de uma 
vari£vel literal, o que serve para "avisar" 
ao computador que aquela variavel de- 


Depois de digitar os graficos, devemos 
pressionar de novo as teclas SHIFT e 9, 
para podermos teclar o sinal de "fecha 
aspas". 



Voce deve se lembrar tambem de que 
o nome de uma variavel literal pode re- 
presentar mais do que uma "caixinha" 
na memoria do computador (reveja o es- 
quema da pagina 27). Na realidade, ca- 
da letra ou caractere entre as aspas ir£ 
ocupar uma memoria apos a outra. 0 
con junto de memorias usado para ar¬ 
mazenar todos os caracteres de um va¬ 
lor literal recebe o nome tecnico de cor- 
dao, neste caso (o nome correspondente 
em ingles, string, tambem e muito 
usado). 



m novo tipo 
de conjunto 


Neste capftulo, vamos conhecer um 
novo tipo de conjunto. Com ele, pode¬ 
mos utilizar um nome unico de variavel, 
para armazenar v^rios valores separa- 
dos. Eles sao chamados de con juntos in- 
dexados e sao muito uteis para se colo¬ 
car na memoria do computador coisas 
organizadas na forma de tabelas. 

Para entender melhor como funciona 
um conjunto desse tipo, vamos "bolar" 
um programa para construir uma tabe- 
la dos pontos ganhos pelos varios times 
de futebol em um campeonato. 

Uma maneira de realizar isto com as 
variaveis "normais" que voce aprendeu 
ate agora seria: 

10 PRINT "CAMPEONATO BRASI- 
LEIRODE FUTEBOL" 

20 PRINT" TABELA DE PONTOS 
GANHOS" 

30 PRINT 

40 REM 

50 REM = = = ENTRADA DE 
DADOS 

60 REM 

70 PRINT "ENTRE O NUMERO DE 
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PONTOS GANHOS" 

75 PRINT TARA CADA TIME DA 
TABELA:" 

80 PRINT 

90 PRINT "TIME NUMERO 1 ? 

100 INPUT T1 
110 PRINT T1 

120 PRINT "TIME NUMERO 2 ? 

130 INPUT T2 
140 PRINT T2 

e assim por diante. Teriamos que colo¬ 
car, em seguida, vdrias linhas seme- 
Ihantes, para entrar os valores dos times 
T3, T4, T5 eta, atd incluir todos os times 
(quantos existissem!). 

Em seguida, poderiamos escrever um 
outro pedago do programa, para mos- 
trar o numero mddio de pontos do can)- 
peonato, por exemplo: 

400 LET MEDIA = (T1 + T2 + T3 
+ T4 + T5)/5 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 

Voce ja percebeu que esse mdtodo de 
programagdo d muito trabalhoso, e mui- 
to limitado: 

— tenho que definir de antemdo o nu¬ 
mero de times que vdo figurar na tabe- 
la. Se este numero mudar depois, terei 
que modificar o programa em vdrios lu- 
gares (inclusive na fdrmula da linha 
400); 

— quanto maior for o numero de times, 
mais comprido serd o programa, e mais 
trabalhoso serd escreve-lo. 

Por isso, seria ideal se pudessemos usar 
um unico nome para as varidveis T1, T2, 
T3 eta Assim, poderiamos guardar os 
diversos valores numdricos em "caixi- 
nhas" ligadas umas nas outras, mais ou 
menos como no caso das varidveis li¬ 
terate. 

Felizmente, existe esse tipo de varidvel 
conjunta na linguagem BASIC. Com 
ela, podemos utilizar um unico nome 
(por exemplo, T) para a area de memo- 
ria que armazenara os pontos ganhos de 
cada equipe: 


area de memdria 


varidvel T 

12 

10 

9 

5 

3 

numero da 

1 

2 

3 

4 

5 


memdria 

Para colocar um valor nesse tipo de va- 
ridvel, podemos usar um comando LET 


ou comando INPUT: 

100 INPUT T(l) 

O valor entre parenteses, que vem de¬ 
pois do nome do conjunto, d chamado 
de indice ou subscrito. Ele indica qual 
d a "caixinha" onde serd colocado o va¬ 
lor digitado pelo teclado. Neste exem¬ 
plo, a memdria indicada d a 1, ou seja, 
o numero de pontos ganhos serd arma- 
zenado para o primeiro time. Outro 
exemplo: 

55 LET T(5) = 3 

Aqui, estamos dando a seguinte ins- 
trugao ao computador: 

PEGUE o numero 3 e ARMAZENE na 
memdria numero 5 da varidvel chama- 
daT. 

Da mesma forma que os comandos 
LET e INPUT, podemos usar uma varid¬ 
vel indexada dentro de outras instru- 
gdes, como o PRINT. Por exemplo, se 
dermos a instrugao: 

56 PRINT T (5) 

estamos querendo dizer: 

PEGUE o valor contido na "caixinha" 
numero 5 da varidvel T e mostre na tela. 

Ou ainda: 

57 LET SOMA = T(l) + T(2) 
o que quer dizer: 

SOME os valores contidos nas memd- 
rias 1 e 2 da varidvel T, e armazene o re- 
sultado na varidvel chamada SOMA. 

As memdrias chamadas T(l), T(2), T(5) 
eta, neste exemplo, recebem o nome de 
varidveis indexadas, porque sdo assina- 
ladas por um indice, ou seja, o numero 
de ordem delas, no conjunto. 

As memdrias T( 1), T(2) etc. sdo chama¬ 
das tambem de elementos de T. 

Tambem sdo muito usados estes no- 
mes: variaveis subscritas (indexadas) e 
subscritos (indices). 

Quando queremos ler em voz alta (pro- 
nunciar) o nome de um elemento subs- 
critado, falamos assim: 

B(5) be indice 5 ou be sub 5 

G(N) ge indice ene ou ge sub ene 

Portanto, um conjunto ocupa na me¬ 


mdria uma sdrie de "caixinhas" indivi¬ 
duate, cujo "enderego" consiste num no¬ 
me comum, seguido do subscrito, entre 
parenteses: 


enderego conteudo 


TCI) 

23 

T(2) 

12 

T(3) 

9 

T(4) 

7 

T(5) 

4 


A grande vantagem desse tipo de va¬ 
ridvel e que os indices dos elementos 
tambdm podem ser varidveis. 

Veja este exemplo: 

1000 LET V(l) = 456 
1010 LET V(2) = 132 
1020 LET V(3) =111 
1030 PRINT 

1040 PRINT "QUE VALOR QUER 
VER (1, 20U 3)? 

1050 INPUT N 
1060 PRINT N 

1070 PRINT "VALOR = ";V(N) 

1080 GOTO 1030 

— As linhas 1000 1010 e 1020servem 
para colocar valores numdricos dentro 
dos elementos 1, 2 e 3 do conjunto V. 

— As linhas 1040 e 1050 servem para 
perguntar ao usudrio qual d o numero 
de ordem do elemento que ele quer ver 
na tela (este numero e armazenado na 
varidvel N). 

— A linha 1060 serve para mostrar na 
tela o conteudo do elemento N do con¬ 
junto V! 

Eis como ficaria um exemplo de utili- 
zagao do programa: 

Primeiro vamos examinar o conteudo 
do segundo elemento do conjunto (pa¬ 
ra isto digitamos o valor 2, quando apa- 
rece a pergunta na tela): 


QUE VALOR QUER VER 
(1, 2 OU 3)? 


i 2 ® 


O programa mostra o valor pedido, em 
seguida repete a pergunta. Agora que¬ 
remos examinar o elemento numero 1: 
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QUE VALOR QUER VER 
(1, 2 OU 3)? 2 VALOR = 132 
QUE VALOR QUER VER 
(1, 2 OU 3)? 



E assim por diante: 


[QUE VALOR QUER VER 
(1, 2 OU 3)? 2 VALOR = 132 
QUE VALOR QUER VER 
(1, 2 OU 3)? 1 VALOR = 456 
QUE VALOR QUER VER 
j (1. 2 0U 3)? 


80 PRINT 

85 FOR N = 1 T05 
90 PRINT "TIME NUMERO ";N;" ? 
100 INPUT T(N) 

110 PRINT T(N) 

120 NEXTN 
130 REM 

140 REM = = = CALCULO DA 
MEDIA 
150 REM 

160 LET SOMA = 0 

170 FORN = 1 T05 

180 LET SOMA = SOMA + T(N) 

190 NEXTN 

200 REM 

210 REM = = = MOSTRA 
RESULTADOS 
220 REM 

400 LET MEDIA = SOMA/5 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 


Eis aqui um exemplo de utilizagSo do 
programa: 

CAMPEONATO BRASILEIRO DE 
FUTEBOL 

TABELA DE PONTOS GANHOS 

ENTRE O NUMERO DE PONTOS 
GANHOS PARA CADA TIME DA 
TABELA: 



ornando 
o programa 
mais eiiciente 


TIME NUMERO 1 ? 23 
TIME NUMERO 2 ? 12 
TIME NUMERO 3? 9 
TIME NUMERO 4? 7 
TIME NUMERO 5? 4 

MEDIA DOS PONTOS 
GANHOS = 11 


Vamos usar agora o nosso conheci- 
mento a respeito das variaveis indexa- 
das ; para modif icar o programa da tabe- 
la de pontos do campeonato. Inicial- 
mente, vamos fazer um programa para 
cinco times apenas: 


10 PRINT "CAMPEONATO 
BRASILEIRO DE FUTEBOL" 

20 PRINT" TABELA DE PONTOS 
GANHOS" 

30 PRINT 
40 REM 

50 REM = = = ENTRADA DE 
DADOS 
60 REM 

70 PRINT "ENTRE O NUMERO DE 
PONTOS GANHOS" 

75 PRINT "PARA CADA TIME DA 
TABELA:" 


Vamos entender agora como funciona 
o programa. 

Para isto, vamos fazer o oposto do gue 
foi ensinado para voce. Vamos fazer 
agora o fluxograma do programa (nor- 
malmente ele deve ser feito antes deste 
serescrito, lembra-se?). 

Para representar uma alga do tipo FOR 
... NEXT, usamos os blocos abaixo: 


< roR > 
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Desse modo, o programa ficaria assim: 


"CAMPEONATO BRASILEIRO DE FUTEBOL" 
" TABELA DE PONTOS GANHOS" 


"ENTRE O NUMERO DE PONTOS GANHOS" 
"PARA CADA TIME DA TABELA:" 


(• 


FORN = 1 TO 5 


A primeira alga, que vai da linha 85 a 
120 serve para entrarmos sucessiva- 
mente os times de 1 a 5. A varidvel N d 
usada como contadora da alga e, ao 
mesmo tempo, como fndice do conjun- 
toT. 

Esta d uma tdcnica muito usada na pro- 
gramagdo de conjuntos, e se chama in - 
dexagdo indireta. 

Vocd pode ver que, a cada valor de N 
incrementado pelo FOR, o programa re¬ 
ferenda um novo valor de T nas linhas 
100 (INPUT) e 110 (PRINT). Ao mesmo 
tempo, serve tambdm para indicar ao 
usudrio qual o numero do time para o 
qual ele deve digitar os pontos ganhos. 


^ "TIME NUMERO ";N;" ? 


\ T(nT 

1 

r 

( T(N) ) 




( NEXTN ) 



Valor de N 

Elemento 

Valor digitado 


referenciado 

(exemplo) 

1 

T (1) 

23 

2 

TO) 

12 

3 

T (3) 

9 

4 

T (4) 

7 

5 

T (5) 

4 


A segunda alga, que vai das linhas 170 
a 190 serve para calcular a soma dos 
pontos ganhos por todos os times. Esse 
valor serd usado no cdlculo da mddia, 
dividindo-o depois por 5. Para servir co¬ 
mo acumuladora, usamos a varidvel SO¬ 
MA, que deve ser zerada antes da entra- 
da na alga (linha 160). 

Portanto, como voce viu, o programa fi- 
cou muito mais bem escrito, conciso e 
eficiente. 

Podemos perceber mais facilmente a 
utilidade do conjunto indexado se tiver- 
mos que mudar o numero de times. Por 
exemplo, se fossem dez times em vez de 
cinco, teriamos que mudar apenas as li¬ 
nhas 85, 170e400: 

85 FORN = 1TO10 

170 FORN = 1TO10 

400 LET MEDIA = SOMA/10 

Vocd jd percebeu que seria muito mais 
fdcil colocar o numero de times como 
uma varidvel NT, que seria perguntada 
ao usudrio logo no inlcio do programa, 
assim: 

52 PRINT "QUANTOS TIMES 7' 

54 INPUT NT 

Assim, o programa fica muito mais ge- 
n£rico, ou seja, pode ser usado em qual- 
quer situagdo, sem necessidade de se 
mudar o programa a cada momento. 
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Outra modificagdo interessante que 
podemos f azer ainda d mostrar de novo, 
em uma tela limpa, os valores digitados, 
antes da mddia. Isto d possi'vel porque 
eles estdo todos armazenados no con- 

junto T. 

* 


Portanto, o nosso programa modifica- 
do fica assim agora: 


10 PRINT "CAMPEONATO 
BRASILEIRO DE FUTEBOL" 

20 PRINT " TABELA DE PONTOS 
GANHOS" 

25 PRINT " VERSAO Z' 

30 PRINT 
40 REM 

50 REM = = = ENTRADA DE 
DADOS 

51 REM 

52 PRINT "QUANTOS TIMES ?" 

54 INPUT NT 

70 PRINT "ENTRE O NUMERO DE 
PONTOS GANHOS" 

75 PRINT "PARA CADA TIME DA 
TABELA:" 

80 PRINT 

85 PORN = 1 TO NT 
90 PRINT "TIME NUMERO ";N;" ? 
100 INPUT T(N) 

110 PRINT T(N) 

120 NEXT N 
130 REM 

140 REM = = = CALCULO DA 
MEDIA 
150 REM 

160 LET SOMA = 0 
165 CLS 

170 FOR N = 1 TO NT 
175 PRINT "TIME NUMERO ";N;" = 
";T(N); "PONTOS GANHOS" 
180 LET SOMA = SOMA + T(N) 
190 NEXTN 
200 REM 

210 REM = = = MOSTRA 
RESULTADOS 
220 REM 

400 LET MEDIA = SOMA/NT 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 


A tela com os resultados ficaria assim 
agora: 


TIMEN? 1 = 23 PONTOS GANHOS 
TIMEN? 2 = 12 PONTOS GANHOS 
TIME N? 3 = 9 PONTOS GANHOS 
TIME N? 4 = 7 PONTOS GANHOS 
TIMEN?5 = 5PONTOS GANHOS 

MEDIA DOS PONTOS 
GANHOS = 11 



comando DIM 


Um con junto indexado, como o que 
vocd viu nos exemplos acima, pode ser 
considerado tambdm como se fosse uma 
lista. O outro nome tdcnico que se dd a 
esse tipo de conjunto d ve/or. 

Para diferenciar uma varidvel numeri- 
ca, que s6 pode armazenar um valor de 
cada vez, de uma varidvel oonjunta, usa- 
mos a seguinte nomenclatura: 

varidvel numdrica simples = 
ESCALAR 

varidvel numdrica conjunta = 

VETOR 

A nomenclatura acima d tirada da Al¬ 
gebra linear (uma parte da matemdtica). 

Quantos elementos pode ter um con- 
junto na memdria? 

Existem algumas limitagdes quanto ao 
empiego desses elementos no BASIC do 
computador que vocd estd usando. 

Inicialmente, um conjunto numdrico 
pode ter no mdximo, dez elementos, o 
que dd para algumas aplicagdes, mas pa¬ 
ra outras d muito pouco. Por exemplo, se 
quisdssemos colocar todos os times da 
Copa Brasil, seria muito mais do que dez, 
e o computador ndo aceitaria. 

Entretanto, existe um jeito de colocar 
mais de dez elementos em um conjunto. 

Para isto, temos que declarar previa- 
mente ao computador quantas memdrias 
ele tern que reservar para o conjunto, se 
ele for confer mais de dez elementos. 

O comando pelo qual se faz essa de- 
claragdo chama-se DIM (que significa 
DIMensdo). 

Dimensionamento d o termo que usa- 
mos para dizer quantos elementos, no 
mdximo, conterd o conjunto. 

No exemplo dos times, se quisdssemos 
colocar um mdximo de setenta times, por 
exemplo (N = 70), seriamosobrigadosa 
colocar no programa a seguinte linha: 

45 DIM T(70) 

Esta declaragdo estd dizendo ao 
computador: 


RESERVE uma dimensdo de setenta 
elementos para o conjunto chamado T. 

Outras limitagdes de memdria para o 
dimensionamento dos conjuntos s3o as 
seguintes: 

- um conjunto ndo pode ter mais de 
65 535 elementos. Se este numero for ul- 
trapassado por engano, o computador 
indicard a mensagem de erro tipo B; 

- cada elementodeum conjunto ocu- 
pa quatro bytes. A soma dos numeros de 
todos os elementos de conjuntos dimen- 
sionados implicitamente (isto d, menos 
de onze elementos) e explicitamente 
(pelo comando DIM) ndo deve ser supe¬ 
rior h quantidade de memdria central 
disporrivel (o que estd sobrando, fora o 
programa). 

Se, na execugdo de um programa, a 
quantidade de memdria n£o for suficien- 
te para todas as varidveis e conjuntos de- 
finidos, o computador indicard um erro 
tipo 4. Quando isso acontece, muitas ve- 
zes o numero da linha onde ocoire o er¬ 
ro (que, na mensagem de erro na tela, 
aparece depois do sinal f) pode estar in- 
completo ou errado, devicto tambdm h 
falta de memdria. Fbr exemplo, a mensa¬ 
gem 4/200 poderd aparecer incompleta, 
assim: 4/2, dando uma indicagdo falsa. 



lgumasregras 
para o DIM 


Fodemos repetir o comando DIM pa¬ 
ra quantos conjuntos houver no meu pro¬ 
grama. Deve-se usar um comando DIM 
para cada conjunto. 

10 DIM A(65) 

15 DIM B(12) 

20 DIM FG(8) 


Observe, nesse exemplo, que o con¬ 
junto FG, por ter menos de oito elemen¬ 
tos, ndo precisa ser colocado na linha 
DIM. Entretanto, muitos programadora 
tern hdbito (alids, muito salutar) de decla¬ 
rar no comego do programa todas as va- 
ridveis indexados, para fins de docu- 
mentagdo. 


Outra regra importantepara o uso do 
DIM d que ele pode ser colocado em 
qualquerponto de um programa, por&n 
sempre antes de serreierenciado o con¬ 
junto pela primeira vez. 
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Assim, estaria errado o seguinte 
programa: 

10 FOR 1=1 TO 100 
20 INPUT T(I) 

30NEXTI 
40 DIM T(100) 

0 programa so iria indioar o erro 
quando, durante a execugao, a variavel 
oontadora I atmgisse o numero 11. Isso 6 
explicado pelo fato de que o interpreta- 
dor BASIC 'garante" a dimensap de um 
conjunto, mesmo que nao declarado em 
DIM, ate dez elementos! O erro indica- 
do pelo oomputador sera de tipo 3 (subs- 
crito fora da faixa). 

Em consequencia, outra regra muito 
importante para o uso correto do DIM e 
que nao se deve dimensionar um conjun- 
to com um numero menor do que o valor 
dimensionado. Por exemplo: 

5 DIM T(50) 

10 POR 1=1 TO 100 
20LETT(I)=0 
30 NEXT I 

0 programa iria executar normal- 
mente, at£ atingir I = 51 # quando entao 
o indioe na linha 20 seria maior do que 
a capacidade do conjunto T. 

Os conjuntos numericos definidos em 
BASIC tern a seguinte caracteristica im¬ 
portante: existe sempre um elemento nu- 
merado com o zero. Por exemplo: T(0) 6 
um elemento valido do conjunto dimen¬ 
sionado T: 

DIM T(5) 


0 

1 

2 

3 

4 

5 


Esse elemento pode ser usado por co- 
mandos INPUT, LET, PRINT eta, sem 
problemas. Por isso, o conjunto T dimen¬ 
sionado como no exemplo acima, na nea- 
lidade tem seis elementos do comando 
DIM dispomveis, e nao cinco, como po- 
deria parecer. Voce pode decidir us^-lo 
ou nao, dependendo da finalidade do 
programa. 

Finalmente, outra particularidade da 
declaragao DIM. 

Nos computadores com a ldgica Sin¬ 
clair, isto 6, o TK83, o TK85, o CP200 eta, 
podemos redeclaiur um conjunto, ou se- 
ja, mudar a sua dimensao em pontos di- 
ferentes do programa. Por exemplo: 

10 DIM A(10) 

20PORI=TO 10 
30LET A(I)=I 


40 NEXT I 
50 DIM A(5) 


eta 

Neste caso, o conjunto A inicial 6 can- 
celado da memdria (e com ele os dados 
armazenados), e d dimensionado um 


1. Indique abaixo se uma variavel e inde- 
xada do tipo vetor (V), indexada do tipo 
matriz (M) ou esc alar (E) 

A(3)™ A3™ X(5) ™ ZZZ™T(12,14)— 
N(7)™ I — 1(2,2)™ 122—VETOR™ 

2. Modifique o programa de calculo dos 
pontos ganhos dos times, de modo que 
mostre na tela de resultados qual a dife- 
renga entre o numero de pontos ganhos 
por cada time e a mddia geral. Por 
exemplo: 

TIME NUMERO 1 = 23 PONTOS 
GANHOS. DIFERENCA DA ME¬ 
DIA = 12 PONTOS 
TIME NUMERO 2 = 12 PONTOS 
GANHOS. DIFERENCA DA ME¬ 
DIA = 1PONTO 


etc. 

3. Seja o conjunto C, com cinco elemen¬ 
tos. Preencha os elementos de A com os 
valores abaixo: 


C(0) 


C(1) 


C(2) 


C(3) 


C(4) 


C(5) 


3.1. C(0) = 3 
C(l) = 12 
C(3) = 78 

C(4) = C(l)+C(3)/2 
C(5) = C(l)+2 

E agora escreva abaixo o que cada um 


conjunto A com apenas cinco elementos. 

E preciso observar entretanto, que is¬ 
so n3o 6 permitido na linguagem BASIC 
padrSo e em muitos outros computado- 
res. Nesses outros computadores 6 neces- 
sario dar antes o comando ERASE ou 
CLEAR, dependendo da marca, para 
"limpar" a membria para outro conjunto 
com o mesmo noma 


dos programas seguintes vai mostrar na 
tela: 

3.2. 10 POR 1=0 TO 5 
20 PRINT C(I); 

30 NEXT I 


3.3. 10 LETN=3 

20 PRINT C(1)+C(N)—C(N+2) 

30 PRINT N*2 + C(N-3) 

3.4. 10 LET C(5)=C(C(0)) 

20 PRINT C(5);C(0) 

4. Considere que os conjxmtos A e B e as 
variaveis escalares X, Y e Z abaixo rece- 
beram os seguintes valores: 

A(l) 5 B(0) 3 X 0 

A(2) 25 B((l) 123 Y 1 

A(3) —9 B(2) 25.5 Z 2 

E indique agora quais serao os 
valores amostrados pelos comandos 
abaixo: 


PRINT A(l) 
PRINT Z —- 


PRINT B(Z) — 

PRINT A(A(1)-Z)- 

PRINT A(B(0)) 

PRINT B(Y)-Y-- 

5. Indique o que cada programa abaixo 
mostrar4 na tela: 


5.1. 10 DIM VET(8) 

20 FOR 1 = 0 TO 8 
30 LET VET (I) = 1 + 1 
40 NEXT I 

50 PRINT VET (0, VET(2), 
VET (4), VET(6), VET(8) 

5.2. 10 DIM A(10) 

20 DIM B(10) 

30 FOR 1=1 TO 10 
40 LET A(I) = I 
50 LET B(I) = 10—1 
60 NEXT I 
70 LET SOMA = 0 




79 
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2 abelas e matrizes 


O comando DIM tambem pode ser 
usado para definir na memoria outro ti- 
po de conjunto: as tabelas ou matrizes. 

Uma tabela consiste em um arranjo de 
elementos de memoria dispostos em 
duas dimensoes. Por exemplo, as notas 
dos alunos de uma classe, nas varias 


materias: 

1 

MATERIAS 

2 

3 


MATEMATICA 

PORTUGUES 

HISTORIA 

ALUNO N? 

i 

8.5 

5 

9 

2 

6.5 

10 

4.5 

3 

7.5 

8 

5 

4 

2 

3 

1.5 


Uma tabela e organizada em linhas e 
colunas. No exemplo acima, as linhas 
sao os alunos. Cada linha contbm, no 
exemplo, tres colunas, correspondentes 
as materias. 

Na memoria do computador, esses da¬ 
dos seriam armazenados da seguinte 
forma: 

COLUNAS 



1 

2 

3 

1 

8.5 

5 

9 

LINHAS 2 

6.5 

10 

4.5 

3 

7.5 

8 

5 

4 

2 

3 

1.5 


Um elemento de uma tabela ou matriz 
e indicado por dois subscritos, em vez de 
um: o numero da linha, seguido pelo nu- 
mero da coluna. 

Por exemplo: 

O ELEMENTO na LINHA 3 e COLU¬ 
NA 2 e igual a 8. 

Ele corresponde a nota de Portugues 

do aluno n? 3. 

Da mesma forma como nos conjuntos 
numericos que voce aprendeu ate ago¬ 
ra ( vetores) podemos usar um unico no- 
me de variavel para indicar uma tabela. 


Por exemplo, o conjunto acima poderia 
ser chamado de NOTA. 

E necessario usarmos a declaragbo 
DIM, tambem no caso das tabelas, para 
indicar ao computador qual e a area de 
membria que ele precisa reservar para 
armazenar o conjunto. 

No exemplo acima, usariamos a de- 
claragbo. 

DIM NOTA (4,3) 

DIM NOTA: nome da variavel 

(4,3): n? de linhas e n? de colunas 

A referenda a um elemento de um 
conjunto desse tipo e feita da seguinte 
forma: 

PRINT NOTA (3,2) 

PRINT NOTA: nome da variavel 
(3,2): l'ndice da linha e l'ndice da coluna 

Dizemos que o conjunto NCTA acima 
b um conjunto bidimensional, isto e, ele 
tern duos dimensoes (linhas e colunas). 

O conjunto C(5), por exemplo, e entao 
chamado, por analogia, de unidimensio¬ 
nal (s6 tern uma dimensao). 

Nao confunda o termo dimensao com 
o tamanho (ou dimensionamento) de um 
conjunto expresso pela declaragao DIM. 

DIMA(25) -► o conjunto A tern 
uma dimensao e 
estd dimensiona- 
do para 25 ele¬ 
mentos 


DIM NOTA (4,3) tern: 

Nesse caso, voce jb esta percebendo 
que e desvantajoso deixar de utilizar os 
elementos com subscrito 0 em uma ma¬ 
triz, pois estariamos desperdigando mui- 
to espago. No exemplo acima, oito ele- 


DIM B(2G135) -► o conjunto B tem 
duas dimensbes e 
esta dimensiona- 
do para 20 linhas 
e 35 colunas 

Na referenda a um elemento de uma 
tabela ou matriz, os subscritos (indices 
de linha e coluna) tambem podem ser 
varibveis ou expressoes: 

PRINT A(X,5) 

INPUT B(I,J) 

LET (1,1) = B(X+25,Y*14-2) 

etc 

E preciso lembrar tambem que o ele¬ 
mento 0 b automaticamente reservado 
em uma tabela de duas dimensoes, com 
o comando DIM. Por exemplo: 

DIM NOTA (4,3) 

gera automaticamente os elementos 

NOTA (0) 

NOTA (0,1), NCTA (0,2).... 

NCTA (0,3) 

NCTA (1,0), NOTA (0,2).... 

NOTA (0,3) 

E mais facil entender a corresponden- 
cia entre subscritos de um conjunto bidi¬ 
mensional, e sua organizagao na mem6- 
ria, examinando o esquema abaixo: 


(4-hi) x (3+1) = 20elementos 

mentos da matriz ficarao em branco (em- 
bora ocupem espago na memoria) se n3o 
forem usados. Quanto maior a matriz, 
maior serb o numero de elementos 
0 desperdigados. 


0 

0 

NCTA (0,0) 

COLUNAS 

1 

NCTA (0,1) 

2 

NCTA (0,2) 

3 

NCTA (0,3) 

1 

NOTA (1,0) 

NCTA (1,1) 

NCTA (1,2) 

NCTA (1,3) 

2 

NCTA (2,0) 

NCTA (2,1) 

NCTA (2,2) 

NCTA (2,3) 

LINHAS 3 

NCTA (3,0) 

NCTA (3,1) 

NCTA (3,2) 

NCTA (3,3) 

4 

NCTA (4,0) 

NCTA (4,1) 

# 

NCTA (4,2) 

NCTA (4,3) 


Portanto, o numero de elementos de uma tabela e igual a: 


(numero de linhas +1) x (numero de colunas + 1) 
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rogramando 
com matrizes 


Tal como acontece com os vetores 
(conjuntos unidimensionais), usamos as 
algas tipo FOR...NEXT para realizar pro- 
gramagoes com conjuntos bidimensio- 
nais. Nesta segao aprenderemos alguns 
truques dessas programagoes. 

Vamos tomar como exemplo, inicial- 
mente, o seguinte problema: como pode- 
mos programar a entrada das notas de to- 
dos os alunos nas tres materias em uma 


tabela na memoria? 

Existem varias maneiras de resolver 
esse problema, Vamos ver as tres tecnicas 
principals: 

1. Sem algas 

O programa para entrada dos dados 
poderia ser feito assim: 


10 DIM NCTA (4,3) 

----► dimensionamento da tabela 

20 PRINT "ESTUDANTE 1, NOTA 1 ?" 

- -► mensagem para pedir nota 

30 INPUT NCTA (1, 1) 

----►entrada da nota na tabela 

40 PRINT "ESTUDANTE 1, NCTA 2 Y 

--“► mensagem para pedir outra nota 

50 INPUT NOTA (1,2) 

----►entrada da nota na tabela. 

etc. 



O programa teria gue repetir doze ve- 
zes cada linha PRINT e INPUT acima, 
para as tres notas de cada aluno da 
classe. 

la vimos gue esse metodo e bastante 
ineficiente, produz programas muito lon- 
gos e repetitivos, e nao pode ser expan¬ 
dido com facildiade. Somente se justifi- 
ca seu uso guando o numero de ele- 


mentos da matriz a ser entrada e muito 
pequeno. 

2. Com uma alga 

Evidentemente, uma maneira mais fa- 
cil e sintetica de se resolver o problema 
acima e usar uma alga FOR...NEXT pa¬ 
ra gerar, repet it ivamente, os indices do 
conjunto NOTA, para cada aluno. 


10 DIM NOTA (4, 3) 

20 FOR 1 = 1 TO 4 

30 PRINT "NOTA 1 DO ALUNO NO."; I 
40 INPUT NOTA (I, 2) 

50 PRINT "NOTA 2 DO ALUNO NO.";I 
60 INPUT NOTA (I, 3) 

70 PRINT "NOTA 3 DO ALUNO NO"T 
80 INPUT NOTA (I, 4) 

90 NEXT I 


----►repetir para alunos de 1 a 4 
mensagem para pedir nota 1 
----►entra nota 1 do aluno I 
’--► mensagem para pedir nota 2 
----►entra nota 2 do aluno I 
—► mensagem para pedir nota 3 
----►entra nota 3 do aluno I 
----►proximo aluno 


Note gue a alga gue vai da linha 20 ate 
a linha 90 repete sempre a mesma se- 
qiiencia de entrada de tres notas, para 
cada um dos guatro alunos. 

A variavel de controle I da alga e usa- 
da para variar o indice de linha da matriz 
NOTA. A sua agao seria semelhante a 
geragao de doze comandos INPUT su- 
cessivos, assim: 

I comando 

1 INPUT NOTA (1,1) 

INPUT NOTA (1,2) 
INPUT NOTA (1,3) 

2 INPUT NOTA (2,1) 
INPUT NOTA (2,2) 
INPUT NOTA (2,3) 


3 INPUT NOTA (3,U 
INPUT NOTA ( 3 , 2 ) 
INPUT NOTA ( 3 , 3 ) 

e assim por diante. 

Esse metodo ainda tern tambem a des- 
vantagem de levar-nos a alterar o progra¬ 
ma, se o numero de materias (e de notas 
por aluno) for maior do que 3. Entretan- 
to, se o numero de colunas da matriz for 
pequeno, a tecnica pode ser usada. 

3. Com duas algas * 

Evidentemente, essa e a tecnica mais 
generica e sintetica (ou seja, com ela po- 
demos escrever um program^ que faga a 
mesma coisa que os outros, em um nu¬ 
mero menor de linhas de BASIC). 
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Essa tdcnica utiliza duas algas 
FDR...NEXT, uma dentro da outra. Uma 
alga d utilizada para controlar os indices 


10 DIM NOTA (4,3) 

20 FOR 1=1 TO 4 
30FOR J=1 TD3 

40 PRINT "ALUNO"; I; "NOTA"; J; "?" 
50 INPUT NOTA (I, I) 

60 NEXT I 
70 NEXT I 


das linhas (estudantes), e a outra, para 
controlar os indices das colunas (notas): 


—+ repetir para alunos de 1 a 4 
--►repetir para notas de 1 a 3 
—-► mensagem para aluno I, nota J 
—-►entrada da nota na tabela 
—-►pidxima nota do aluno I 
—►prdximo aluno 


Veja o que apareceria na tela do com- 
putador, quando o programa fosse 
executado: 


ALUNO 1 NOTA 1? 
ALUNO 1 NOTA 2? 
ALUNO 1 NOTA 3? 
ALUNO 2 NOTA 1? 
ALUNO 2 NOTA 2? 
ALUNO 2 NOTA 3? 
ALUNO 3 NOTA 1? 


etc 

ate completar todos os alunos e notas. 

A alga externa, com a varidvel I, serve 
para aumentar o indice da matriz NOTA, 
de 1 em 1. 


A alga interna, com a vartevel I, serve 


para aumentar o indice da matriz NOTA, 
de 1 em 1. 

Desse modo, dizemos que a alga in ter- 
no varia (aumenta) mais depressa que a 
alga externa. 

Em outras palavms, para cada aluno I, 
oindioel varia de 1 a3. Portanto, aentra- 
da dos dados d feita por colunas. 

Poderiamos, neste exemplo, ter adota- 
do uma outra forma de entrada dos da¬ 
dos: entrar as notas de cada um dos alu¬ 
nos, para cada uma das materias. Por 
exemplo, primeiro entrariamos todas as 
notas de Matemdtica, depis de Fbrtugues 
e depois de Histdria. 

Esse programa teria uma pequena di- 
ferenga em relagao ao anterior. Qual 
seria? 


10 DIM NOTA (4,3) 

20FOR J=1103 
30 POR 1=1 TO 4 

40 PRINT "ALUNO"; I; "NOTA"; J; T 
50 INPUT NOTA (I, J) 

60 NEXT J 
70 NEXT I 


—-►repetir para materias de 1 a 3 
—► repetir para alunos de 1 a 4 
—-► mensagem para aluno I, nota I 
—-►entrada da nota na tabela 
—-►prdxima nota do aluno I 
—-► pidximo aluno 


Observe que precisamos mudar ape- 
nas as linhas 20 e 30. 


Agora a seqiiencia de mensagens na 
tela ficaria assim: 


ALUNO 1 NOTA 1? 
ALUNO 2 NOTA 1? 
ALUNO 3 NOTA 1? 
ALUNO 4 NOTA 1? 
ALUNO 1 NOTA 2? 
ALUNO 2 NOTA 2? 
ALUNO 3 NOTA 2? 


ALUNO 4 NOTA 2? 


etc 

ate completar todos os alunos e notas. 

A alga externa, com a variavel J, serve 
para aumentar o indice da matriz NOTA, 
de 1 em 1. 

A alga interna, com a varidvel I, serve 
para aumentar o indioe da matriz NOTA, 
de 1 em 1. 


abelas de qualquer 
tamanho 


Uma grande vantagem do esguema 
de programagao com duas algas 6 que 
podemos fazer um programa para qual¬ 
quer numero de alunos ou de materias, 


pois o valor limite das algas I e J pode ser 
entrado como uma vari&vel do 
programa. 

Veja o exemplo abaixo: 


10 DIMNOTA (50,15) 

12 PRINT "QUANTOS ALUNOS?" 

14 INPUT NA 

16 PRINT "QUANTAS MATERIAS?' 

18 INPUT NM 

20 FOR 1=1 TO NA 

30 FOR J=1 TONM 

40 PRINT "ALUNO'; I; "NCTA"; I;"?" 

50 INPUT NOTA (I, J) 

60 NEXT J 
70 NEXT I 


—-► pergunta numero de alunos (NA) 

—-►pergunta numero de materias 
-—►repetir para alunos de 1 a NA 
—-► repetir para materias de 1 a NM 
—-► mensagem para aluno I, nota J 
—-►entrada da nota na tabela 
—-► pr6xima nota do aluno I 
—-► proximo aluno 


Observe que demos agora uma capa- 
cidade maior h matriz NCTA, de modo a 
comportar notas de at6 50 alunos e 15 
materias. 

Novamente, com apenas duas peque- 
nas mudangas nas linhas 20 e 30 do pro¬ 
grama, ele continua sendo v&lido para 
qualquer numero de alunos e de notas 
(desde que nfio ultrapassem os limites 
impostos pela declaragSo DIM, 4 claro!) 


As algas "embutidas" (ver p&gina 53) 
podem ser utilizadas tamb^m para mos- 
trar o conteudo dos elementos de uma 
matriz, por meio do comando PRINT, ou 
para cdlculos (por exemplo, c&lculo das 
madias de cada aluno). 

Veja o exemplo abaixo, ainda u tili za n - 
do a tabela de notas: 


90 CLS —► limpa a tela 

100 POR 1=1 TO 4 —-► repetir para alunos de 1 a 4 

110 POR J = 1 TO 3 --►repetir para notas de 1 a 3 

120 PRINT 'ALUNO'; I; "NCTA"; J;"-"; NOTA (I, J) 

140 NEXT J -—► prbxima nota do aluno I 

160 NE XT I —-►pr6ximo aluno 


Este programa mostraria na tela o se- 
guinte resultado (com os dados da tabe¬ 
la de exemplo): 


ALUNO 1 NOTA 1 = 8.5 
ALUNO 1 NCTA 2 = 5 
ALUNO 1 NCTA 3 = 9 
ALUNO 2 NCTA 1 = 6.5 
ALUNO 2 NCTA 2 = 10 
ALUNO 2 NCTA 3 = 4.5 


ALUNO 3 NCTA 1 = 7.5 


eta 

E 6bvio que essa n5o 4 uma maneira 
muito elegante de apresentar uma tabela 
de notas. 

Mas, com pequenas modificagOes no 
programa, podemos fazer isso facilmen- 
te. Observe a diferenga: 


90 CLS 

100 POR 1=1 TO 4 
105 PRINT "ALUNO'; I; 

110 POR J=1103 

120 PRINT TAB (J* 10 +3); NCTA (I,J); 
140 NEXT I 
150 PRINT 
160 NEXT I 


—-►limpa a tela 
—-►repetir para alunos de 1 a 4 

—► repetir para notas de 1 a 3 

►prdxima nota do aluno I 

-► proximo aluno 
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Agora os resultados aparecerSo assim 


ALUNO 1 - 
ALUN02- 
ALUN03- 
ALUN04- 


8.5 

6.5 

7.5 
2 


5 

10 

8 

3 


9 

4.5 
5 

1.5 


Vamos entender como essa parte do 
programa funciona: 


A linha 105 escreve na tela a palavra 
ALUNO, seguida do seu numero (no ca- 
so, o conteudo da vari&vel I, gue 6 au- 
mentada de 1 em 1 pela alga da linha 
100). O ponto-e-vlrgula colocado no fi¬ 
nal dessse comando assegura gue o pr6- 
ximo comando PRINT escreva na mesma 
linha (logo ap6s o sinal de subtragao). 


A linha 120 escreve na tela todas as ties 
notas para o aluno I, sempre na mesma li¬ 
nha, pois tambem tern um ponto-e- 
viigula no seu final. 

A expressao que usa a fungao TAB 
serve para alinhar (colocar nas mesmas 
colunas, na vertical) cada uma das notas 
das materias. 


lagao, e funciona exatamente como o ta¬ 
bulator de uma mdquina de esciever. E 
muito util, portanto, para a programagao 
de tabelas. 

A expressao entie paienteses serd cal- 
culada, dentro de cada repetigao de I e 
J, e ird determinar esta nova posigao n: 


J valor da expressao (J* 10 + 3) 

1 (1 x 10 + 3) 13 

2 (2x10 + 3) 23 

3 (3x10 + 3) 33 


Portanto, vemos que cada nota come- 
gard nas colunas 13,23 e 33 da mesma li¬ 
nha, respectivamente. 

O comando PRINT na coluna 150, For 
sua vez, serve para passar o cursor para 
a linha seguinta Se ele nao fosse coloca¬ 
do ai (ou seja, depis de terminar todas as 
notas de uma linha, ao final da alga J), as 
notas do prdximo aluno continuariam a 
ser mostradas na mesma linha do aluno 
anterior, pois existe um ponto-e-virgula. 
Colocando-se o PRINT sozinho, essa li¬ 
nha d encerrada, e passar-se d pibxima. 


Relembrando, a fungao TAB n vai mo¬ 
ver a posigao de impressao (cursor) na 
tela, at6 a coluna n. TAB significa tabu- 


Experimente colocar o programa no 
computador e retirar a linha 150 para ver 
o que acontece! 


b 


azendo calculos 
em uma tabela 


O mesmo esquema de duas algas tam- 
ktem pode ser utilizado para realizar cdl- 
culos ou comparagOes ldgicas com os 
elementos de uma matriz. 


Vamos imaginar, por exemplo, que 


190 LET SOMA = 0 
200 FOR I = 1 TO 4 
210 FOR J= 1 TO 3 

220 LET SOMA = SOMA + NOTA (I, I) 
230 NEXT J 
240 NEXT I 

250 LET MED « SOMA/12 
260 PRINT 

270 PRINT "MEDIA = MED 


queremos saber qual f oi a ntedia de todas 
as notas tiradas para a classa 

Para isso, primeiro vamos ter que so- 
mar todas as notas contidas na matriz 
NOTA, e depois dividir pelo total de no¬ 
tas, certo? 


zerar um acumulador 
—-►repetir para alunos de 1 a 4 
► repetir para notas de 1 a 3 
—-^acumular a soma com a nota 
prdxima nota do aluno I 
—-►prdximo aluno 
—►calcula a mddia 


Essa parte do programa, portanto, pe- 
garia cada um dos elementos da matriz 
NOTA em seguida, atravds da variagao 
dos indices I e J, e somaria h vartevel 
SOMA. 

Nao precisamos, necessariamente, fa- 
zer variar os dois indices da matriz NO¬ 


TA, atrav&s de algas FOR...NEXT. 

Vamos imaginar, por exemplo, que 
queremos saber apenas a ntedida das 
notas de todos alunos para uma determi- 
nada materia. Para isto, a variavel SOMA 
deveria se% acumulada apenas com os 
valores da coluna desejada: 
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290 LET SOMA = 0 —-► zerar um acumulador 

300 FOR I = 1 TO 4 —-►repetir para alunos de 1 a 4 

310 LET SOMA = SOMA + NOTA (1,1) —-►acumular a soma com a nota 
320 NEXT I *-♦ prbximo aluno 

330 LET MED = SOMA/4 —► calcula a ntedia 

340 PRINT 

350 PRINT "MEDIA DE MATEMATICA = MED 


Note que a linha 310 soma apenas os 
elementos 

NOTA (1,1) NOTA (2,1) NOTA (3,1) 
e NOTA (4,1) 

Isso ocorre porque o l'ndice da coluna 
(no caso, coluna 1) este fix o dentro do 


programa, ou seja, 6 uma constante que 
nao varia, ao passo que o indice de linha 
(alunos) varia de 1 a 4, atrates da alga I 
da linha 300. 

Para tomar mais geral esta parte do 
programa, poderiamos perguntar ao 
usu&rio de que materia ele deseja saber 
a media. 


280 PRINT "ENTRE QUE MATERIA (1,2 OU 3);" 

285 INPUT M 

290 LET SOMA = 0 —► zerar um acumulador 

300 FOR 1=1 TO 4 -—►repetir para alunos de 1 a 4 

310 LET SOMA = SOMA + NOTA (I,M) -—►acumular a soma com a nota 
320 NEXT I -*♦ prdximo aluno 

330 LET MED = SOMA/4 —►calcula a media 

340 PRINT 

350 PRINT "MEDIA DE MATERIA M;" = MED 


Ou ainda, poderiamos obter automa- 
ticamente as medias para todas as mate- 


rias, usando uma alga externa para fazer 
variar os indices de coluna: 


280 FOR M = 1 TO 3 
290 LET SOMA = 0 
300 FOR I = 1 TO 4 

310 LET SOMA = SOMA + NOTA (I,M) 
320 NEXT I 

330 LET MED = SOMA/4 
340 PRINT 

350 PRINT "MEDIA DE MATERIA x ; M;" 
360 NEXT M 


—►repetir para materias de 1 a 3 
—►zerar um acumulador 
—► repetir para alunos de 1 a 4 
—►acumular a soma com a nota 
—►proximo aluno 
—►calcula a media 

MED 

—►proxima materia 



Observe que estamos usando as mes- 
mas varteveis, SOMA e MED, para o cal- 
culo da media de cada nota. Isso real- 
mente nao tern importancia, pois nao 


queremos armazenar os valores das me¬ 
dias de todas as materias. A vartevel SO¬ 
MA, portanto, deve ser zerada dentro da 
alga externa, e fora da alga interna. 
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I I m programa 
■ ■ completo 


Vamos fazer agora um programa com¬ 
plete), utilizando o exemplo das notas de 
ima classe. 

Neste programa queremos fazer o 
seguinte: 

1. entrar as notas de cada aluno, em to- 
das as materias; 

2. mostrar essas notas na tela, em for¬ 
ma de tabela. Aproveitamos para 
calcular e mostrar a ntedida aritnte- 
tica de cada aluno, nessa tabela; 

3. calcular e mostrar a ntedida de ca¬ 
da materia. 


Vamos Id: 


10 REM = = = = = = = = = = = = = = 
20 REM = BOLETIM DE NOTAS DA 
CLASSE 

30 REM = BASIC PARA TK 85 
40 REM = R. SABBATINI ABRIL 1985 
50 REM = = = = = = = = = = = = 
60 REM 

70 REM **** INICIALIZACAO **** 

80 REM 

90 DIM NOIA(50, 15) 

100 CLS 

110 PRINT "CALCULO DO 
BOLETIM DE NOTAS" 

120 PRINT 
130 REM 

140 REM **** ENTRADA DE 
PARAMETROS **** 

150 REM 
160 PRINT 

170 PRINT "NUMERO DE ALUNOS 
NA CLASSE ?"; 

180 INPUT NA 

190 IF NA > 50 THEN GOTO 170 
200 PRINT NA 
210 PRINT "NUMERO DE 
MATERIAS ?"; 

220 INPUT NM 

230 IF NM > 15 THEN GOTO 210 
240 PRINT NM 
250 REM 

260 REM **** ENTRADA DE 
DADOS **** 

270 REM 

280 PRINT "ENTRE AS NOTAS DOS 
ALUNOS:" 

290 PRINT 

300 FOR 1=1 TON A 

310 PRINT "ALUNO N?";I 

320 FOR J=1 TO NM 

330 PRINT TAB (7);"NOTA DA 
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MATERIA ";J;" ?"; 

340 INPUT NOTA(I,J) 

350 IF NOTA(I,J) <0THEN 
GOTO 340 

360 IF NOTA (I, J) > 10 THEN 
GOTO 340 
370 PRINT NOIA(IJ) 

380 NEXT I 
390 REM 

400 REM **** MOSTRA NOTAS NA 
TELA *** 

410 REM **** E CALCULA 
MEDIAS **** 

420 REM 

A'in PT Q 

440 FOR J=1 TON A 

450 PRINT "ALUNO ";I;" - 

460 LET SOMA= 0 

470 FOR 1=1 TO NM 

480 PRINT TAB( 10+5*I);NOTA(I,J); 

490 LET SOMA= SOMA+NOTA(IJ) 

500 NEXT I 

510 PRINT * MED ";SOMA/NM 
520 NEXT I 
530 REM 

540 REM **** CALCULA MEDIA 
DAS MATERIAS**** 

550 REM 

560 FOR J=1 TO NM 

570 LET SOMA= 0 

580 FOR 1 = 1 TO NA 

590 LET SOMA=SOMA+NOTA(I,J) 

600 NEXT I 

610 PRINT 

620 LET MED=SOMA/NA 
630 PRINT "MEDIA NA MATERIA 
";J;" = ";MED 
640 NEXT I 
650 STOP 


permitido pelo comando 
DIM. Se isto acontecer, pe- 
gunta novamente. 

200 a 210 -Pergunta quantas materias 
tern, e entra na vartevel NM. 

220 -Testa se NM 4 maior do que 
o permitido pelo comando 
DIM. Se isso acontecer, per¬ 
gunta novamente 

280 a 290 -Dd instrugOes para entrada 
de dados. 

300 -Alga de repetigao dos 

alunos. 

310 -Mostra identificagao do alu¬ 

no a ser entrado. 

320 -Alga de repetigao das mate¬ 

rias por aluno. 

330 a 340 -Pergunta nota. 

350 a 360 -Testasea notaestdentreOe 
10. Em caso contrdrio, per¬ 
gunta a nota de nova 

440 a 520 - Parte do programa que mos¬ 
tra as notas na tela. 

Na linha 460, zera o soma- 
dor de notas de um aluno 
Na linha 490, efetua esta so¬ 
ma, e na linha 510 mostra a 
rrtedia. 

560 a 640 -Parte do programa que cal- 
cula as ntedias das materias. 


nalise do 
programa 


Vamos analisar o programa linha por 
linha, agora, para podermos entender o 
gue elas fazer: 


10 a 50 -Nestas linhas colocamos um 
cabegalho intemo de iden¬ 
tificagao do programa (au- 
tor, data, computadoretc.). 


90 -Dimensionamento do con- 

junto NOTA. 

I ' 

100 a 120 -Mostrar titulo do programa 
na tela (para gue serve). 


170 a 180 -Pergunta guantos alunos 
tern, e entra na vari^vel NA. 

i 

190 -Testa se NA e maior do que o 


Coloque agora o programa no compu- 
tador e teste com os dados da tabela de 
exemplo deste capi'tulo. 
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1. O conjunto DADOS, com cinco li- 
ntias e quatro colunas, contem os se- 
guintes elementos: 


COLUNAS 
12 3 4 

1 
2 

LINHAS 3 

4 

5 


12 

23.4 

16.7 

100 

5 

6.7 

9.2 

12 

14 

6.1 

1.1 

25 

9 

45.8 

10.9 

13 

1 

0 

32 

43 




















Responda as seguintes questoes (exem- 
plo de resposta na primeira linha): 

1.1. Quais sao os subscritos de linha e 
coluna dos elementos cujo conteudo e: 

23.4 - Resposta: DADO (1,2) 

14 - " . 

45.8- . 

32 - " . 

43 " . 

100 - " ... 

1.2. Escreva uma declaragao DIM para 
o conjunto DADOS acima. 

Resposta: . 

1.3. Indique o valor contido nos elemen¬ 
tos abaixo: 

DADO(2,l): . 

DADO(3,3): . 

DADO(DADO(2,1),DADO(4,1)): . 

DADO(4,DADO(4,l)):. 

DADO(5,5): . 

DADO(l,5): . 

DADO(5,l): . 

DADO(4,l): . 

2. Escreva urn programa com a alga 
FOR NEXT, para preencher com dados 
os elementos do conjunto DADO (por 
meio de um comando INPUT). 

3. Escreva um programa para preen¬ 
cher com zeros todos os elementos do 
conjunto DADO. 

4. Explique o que realizam os progra- 
mas abaixo, e qual o resultado mostra- 
do pelo comando PRINT na linha 100, 
tomando como dados o conjunto DA¬ 
DOS acima: 

4.1. 10 PR=1 
15LETC=3 

20 FORL=l TOS 
30 LET PROD= 

PROD * DADO(L,C) 

40 NEXT L 
100 PRINT PROD 

4.2. 10 LET S=0 

15 POR 1=2 TO 4 STEP 2 
20 POR J=IT04 
30 LET S=S+DADO(I,J) 

40 NEXT I 
50 NEXT I 
60 PRINTS 

5. Faga um programa para copiar uma 
das linhas da matriz DADO, para um ve- 


tor (conjunto unidimensional) chamado 
COPIA. 

6. Faga um programa para copiar uma 
das colunas da matriz DADO, para um 
vetor chamado COPIA. 

7. Escreva um programa para preen¬ 
cher com o valor 1 todos os elementos da 
diagonal principal de um conjunto 
A(10,10). 

Dica: Diagonal principal e o conjunto 
de todos os elementos da matriz que tern 
o mesmo indice de linha e de coluna. 
Por exemplo: os elementos A(l,l), 
A(2,2), A(3,3)... etc. estao na diagonal 
principal. 

8. Indique qual o erro nos programas 
abaixo: 

8.1. 10 DIM A(7,6) 

20 FOR 1=0 TO 7 
30 LET A(I,7)=1 
40 NEXT I 

8.2. 10 FOR J=2 TO 100 STEP 3 
15 LET B(J,10)=B(J,1)*2 
20 NEXT I 

30 DIM B(100,10) 

8.3. 10 DIM X (50,10) 

20 FOR 1=1 TO 10 
30 FOR 1=1 TO 50 
40 LETX(I,J)=0 
50 NEXT I 

60 NEXT J 

9. Indique se as linhas de programa 
abaixo estao certas (C) ou erradas (E). 
Caso estiverem erradas, explique onde 
esta o erro: 

PRINT XX(A+5,10) 

LETC(1;2)=896 

PRINT A218(B5,B5+3 - T*4) 

PRINT CONI(4,5) 

PRINT B(67000,2) 

PRINT X(3.2,4.55) 

10. Modifique o programa completo de 
calculo de boletim de notas, da segao 
anterior, de modo a realizar as seguin¬ 
tes fungoes adicionais: 

a. Calcular a media global da classe 
(todas as notas). 

b. Indicar, ao lado da media de cada 
aluno, se ela esta acima ou abaixo da 
media global da classe. 
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istas de nomes 


Tambdm podemos programar em BA¬ 
SIC uma varidvel conjunta alfanumdri- 
ca. No exemplo dos times, podenamos 
entao armazenar os nomes dos times em 
uma lista, assim: 

25 LET TIME$( 1)="PALMEIR AS" 

26 LET TIME$(2)="SANTOS" 

27 LET TIME$(3)="CORINTHIANS" 

28 LET TIME$(4)="FLAMENGO" 

29 LET TIME$(5)="FLUMINENSE" 

e assim por diante. 

Dimensionar um conjunto literal como 
este d um pouco mais complicado do 


que dimensionar um conjunto numdri- 
co (um vetor). 

Como voce deve se lembrar, um cordao 
alfanumdrico ("string") d armazenado 
no computador como uma sdrie de me- 
mdrias interligadas. Ou seja, uma varid- 
vel literal simples jd 6 um conjunto de 
memdrias. 

Normalmente, podemos encher uma 
varidvel literal simples com atd 255 ca- 
racteres, sem necessidade de usar o co- 
mando DIM (ou seja, d diferente do con¬ 
junto numdrico, que sd permite dez ele- 
mentos nessas condigdes). 


TIPO DE VARlAVEL ESPAQO PRE-DIMENSIONADO 


Conjunto numdrico 

1 2 3 ... 10 


Varidvel literal 

■| 2 | 3 | . - 

.1255 


Se usarmos o comando DIM com uma 
varidvel literal simples, estaremos auto- 
maticamente limitando onumero de ca- 
racteresqueesta varidvel ird aceitar. Por 
exemplo: 

10 DIM LETRAS$(10) 

20 LET LETRAS$='ABCDEFGHDKL 
MNOPQRSTUVXZ" 

Neste caso, o comando 
30 PRINT LETRAS$ 
ira mostrar apenas este resultado (as dez 


primeiras letras foram aceitas no coman¬ 
do LET da linha 20): 

ABCDEFGHD 

Para dimensionar um conjunto literal, 
portanto, podemos utilizar uma tabela 
como se fosse uma pdgina com vdrias li- 
nhas de tamanho fixo: 

10 DIM T$(5,15) 

Isso equivale a um conjunto de duas di- 
mens&es, oiganizado assim: 


INDICE 

0 

1 

2 

3 

4 

5 


ESPAQO DIMENSIONADO 
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0 primeiro numero entre parenteses 
no comando DIM especifica o numero 
delinhas que constam do con junto, ou 
seja, quantos nomes separados eu pode- 
rei colocar na minha lista. 

0 segundo numero entre parenteses 
(depois da virgula) corresponde ao nu¬ 
mero de colunas que constam do con- 
junto, ou seja, quantos caracteres, no 
mdximo, podera ter cada nome da lista. 


Como no caso dos conjuntos num£ri- 
cos, existe um elemento 0 que e reserva- 
do automaticamente (voce pode usd-lo 
ou n3o, a vontade). 

A unica diferenga em relagao a um 
conjunto num4rico 6 que n3o fexiste a 
coluna numerada zero, ou seja, ela nao 
e ocupada por um caractere do cordao. 

Preenchendo com os nomes dos times 
do exemplo acima, teriamos: 
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Voc& deve ter notado dois fatos interes- 
santes aqui: 

1. A linha do comego do conjunto (linha 
0) estd vazia. 

2. Sobram espagos em branco depois 
dos nomes dos times, em cada linha, 
se estes tiverem menos do que os 
quinze caracteres dimensionados. 

0 primeiro fato pode ser explicado 
porque tinhamos colocado os co- 
mandos: 


25 LET TIME$( 1)="PALMEIRAS" 

26 LET TIME$(2)="SANTOS" 

27 LET TIME$(3)="CORINTHIANS" 

28 LET TIME$(4)="FLAMENGO" 

29 LET TIME$(5)="FLUMINENSE" 


Mas nada impediria que coloc£s- 
semos: 

24 LET TIME$(0)="SAO PAULO" 

E, neste caso, a linha 0 tamb4m seria 
ocupada: 
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ando nome 
aos bois 


Vamos refazer agora o programa de 
entrada dos pontos ganhos por time de 
futebol, colocando tamb4m os nomes 
dos times. 

Um programa para entrar os nomes 
dos times, por exemplo, seria assim: 

10 DIM TIME$(5,15) 

20 FOR 1=1 TO 5 

30 PRINT "NOME DO TIME N?";I;" ?"; 
40 INPUT TIME$(I) 

50 NEXT I 

Note que o numero de subscritos na 
declaragSo DIM 6 diferente do numero 
de subscritos na declaragSo INPUT, 
quando se trata de conjuntos de cor- 
dOes. Isso nfio acontece em conjuntos 
num&icos: ambos os numeros precisam 
ser iguais. 

Podemos aproveitar a alga de entrada 
do programa dos times de futebol para 
colocar tamb^m duas linhas que possi- 
bilitem a entrada do nome: 


10 PRINT "CAMPEONATO 
BRASILEIRO DE FUTEBOL" 

20 "TABELA DE PONTOS GANHOS" 
30 PRINT 

35 DIM TIME$(5,15) 

40 REM 

50 REM=« ENTRADA DE DADOS 
70 REM 

70 PRINT "ENTRE O NUMERO DE 
PONTOS GANHOS" 

75 PRINT "PARA CADA TIME DA 
TABELA:" 

80 PRINT 
85FORN=l TO 5 
90 PRINT "NOME DO TIME 
NUMERO ";N;"?"; 

95 INPUT TIME$(N) 

96 PRINT TIME$(N) 

98 PRINT "NUMERO DE PONTOS 
GANHOS?"; 

100 INPUT T(N) 

110 PRINT T(N) 

120 NEXT N 
130 REM 

140 REMCALCULO DA MEDIA 
150 REM 

160 LET SOMA= 0 
170 FOR N=1 TO 5 
180 LET SOMA=SOMA + T(N) 

190 NEXTN 
200 REM 
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210 REM::: MOSTRA RESULTADOS 
220 REM 

400 LET MEDIA = SOMA/5 
410 PRINT 

420 PRINT "MEDIA DOS PONTOS 
GANHOS = ";MEDIA 
430 STOP 

Eis aqui um exemplo de utilizagao do 
programa: 

CAMPEONATO BRASILEIRO DE 
FUTEBOL 

TABELA DE PONTOS GANHOS 

ENTRE O NUMERO DE PONTOS 
GANHOS PARA CADA TIME 
DA TABELA: 

NOME DO TIME NUMERO 1 ? 
PALMEIRAS 

NUMERO DE PONTOS GANHOS ? 23 
NOME DO TIME NUMERO 2 ? 
SANTOS 

NUMERO DE PONTOS GANHOS ? 12 
NOME DO TIME NUMERO 3 ? 
CORINTHIANS 

NUMERO DE PONTOS GANHOS ? 9 
NOME DO TIME NUMERO 4 ? 
FLAMENGO 

NUMERO DE PONTOS GANHOS ? 7 
NOME DO TIME NUMERO 5 ? 
FLUMINENSE 

NUMERO DE PONTOS GANHOS ? 4 
MEDIA DOS PONTOS GANHOS = 11 


Voce deve estar perguntando a esta al- 
tura: Por que entrar os nomes dos times, 
se eles nao s3o usados em nenhum outro 
lugar do programa? 

Realmente, se for so para inlormar no 
momento de entrada de dados, e desne- 
cessario entrar os nomes dos programas. 


430 CLS 

440 PRINT TAB( 5);"TIME"; 

TAB(15);"PONTOS"; 

450 PRINT TAB(22);"DIFERENCA 
MEDIA" 

460 FOR 1=1 TO 5 
470 PRINT I;". ";TIME$(I); 

TAB(7);T(I);TAB(17);MEDIA - T(I) 
480 NEXT I 
490 STOP 


Porem, uma vez que ja temos os nomes 
armazenados no conjunto TIMES, po- 
demos usa-los para outros fins. 

Vamos supor que queremos modificar 
o programa acima, de modo a mostrar 
na tela o seguinte resultado: 


A expressao da linha 470 mostra os 
dados de entrada e a diferenga dos 
pontos ganhos por cada time, em rela- 
g3o a media calculada. 

Portanto, para realizar este tipo de cal- 
culo, bem como mostrar os resultados, e 
necessario usar conjuntos para armaze- 
namento intermediario dos dados. 


TIME 

PONTOS 

DIFERENQA MEDIA 

1. PALMEIRAS 

23 

12 

2. SANTOS 

12 

1 

3. CORINTHIANS 

9 

-2 

4. FLAMENGO 

7 

-4 

5. FLUMINENSE 

4 

-7 


Para fazer isso, tiramos a linha 430 do programa anterior e adicionamos: 



istas internets 
de nomes 


Muitos programas utilizam listas de no¬ 
mes e outros dados, que podem ser de- 
f inidos como f ixos, dentro dos mesmos, 
em vez de serem entrados por meio de 
comandos INPUT. 

Em muitos computadores, existem dois 
comandos (READ e DATA) que facilitam 
bastante a def inigao interna de tais listas. 
Entretanto, os computadores com a logi- 
ca SINCLAIR (por exemplo, o TK83, 
TK85, CP200etc, no Brasil) nao tern es- 
tes comandos no seu interpretador BA¬ 
SIC. Por isso, temos que usar alguns tru- 
ques e assim contornar essa falta. 

O mais comum, se o numero de ele- 
mentos dos conjuntos n3o for muito 
grande, e defini-los no programa por 
meio de declaragCes LET. 


Vamos tomar um exemplo. 

Suponhamos que o dono de uma loja 
de frios queira emitir uma nota de des- 
pesas para cada cliente que efetua com- 
pras na sua loja. Os produtos que ele tern 
para vender s3o f ixos, e podem constar 
do programa. Para cada cliente ele digi- 
ta a quantidade comprada e o prego por 
quilograma da mercadoria. Em segui- 
da, aparece a nota na tela, com o total 
das despesas, bem como o nome e valor 
de cada mercadoria comprada. 

Vamos definir o conjunto M$, que 
contem os nomes das mercadorias, e os 
conjuntos Q e PR, que contem quanti¬ 
dade e prego, respectivamente. 

10 CLS 

20 PRINT "EMISSAO DE NOTA DE 
DESPESAS" 

30 PRINT "CASA DE FRIOS" 
"AZEITONA DOURADA" LTDA" 

40 PRINT 

50 DIM M$(5,20) 

55 DIM TT(5) 

60 LET M$(0)="AZEITONAS 
PR ETAS" 

70 LET M$(l)="AZEITONAS' 


VERDES" 

80 LET M$(2) = "PRESUNTO 
GORDO" 

90 LET M$(3) = "PRESUNTO 
MAGRO" 

100 LET M$(4)="MOZARELA" 

110 LET M$(5) = "QUEIJO PRATO" 
120 REM 

130 REM ***** ENTRADA DOS 
DADOS DA COMPRA ***** 

140 REM 

150 PRINT "DIGITE A QUANTIDADE 
COMPRADA EDEPOIS" 

160 PRINT "O PREQO POR 
QUILOGRAMA PARA 
CADA MER -" 

170 PRINT "CADORIA APRESENTA- 
DA NA TELA. DIGITE 0" 

180 PRINT "SE O CLIENTE NAO 
COMPROU A MERCADORIA" 
190 PRINT 
200 FOR 1 = 1 TO5 
210 PRINT M$(I); " ? " 

220 INPUT 0(1) 

230 IF Q(I) = 0 THEN GOTO 250 
240 INPUT PR(I) 

250 NEXT I 
260 REM 

270 REM ***** IMPRESSAO DA 
NOTA ***** 
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280 REM 
290 CLS 

300 PRINT" NOTA 

DEDESPESAS" 

310 PRINT 

320 PRINT "MERCADORIA"; 

TAB(17);"QUANT PRECO" 

325 LET TOT= 0 

330 FOR I = 1 TO 5 

340 IF Q(I) = 0 THEN GOTO 360 

350 PRINT M$(I);TAB( 17);Q(I); 

TAB(22);Q(I)*PR(I) 

355 LET TOT=TOT+Q(I)*PR(I) 

360 NEXT I 

365 PRINT "TOTAL";TAB(22);TOT 

370 PAUSE 600 

380 CLS 

390 GOTO 150 


O comando IF da linha 230 serve para 
testar se a quantidade comprada foi ze¬ 
ro. Neste caso, o programa nao pede o 
prego depois. 

0 comando IF da linha 350 testa tam- 
bem se a mercadoria tern valor zero de 
quantidade, e passa para a linha 350 de 
apresentagao, neste caso. 



1. Modifiqueo programa de emissao de 
nota de despesas, de modo a ter as se- 
guintes fung6es adicionais: 


a. entrar a data de emissao da nota e o 
nome do cliente, para mostrar na tela de 
emissao; 


b. armazenar o valor total de cada nota, 
cumulativamente em uma variavel REN- 
DA, e mostrar este valor se o nome do 
cliente for "FIM". 


2. Modifique o programa de calculo de 
boletim de notas (pdgina 87 ), a fim de 
poder entrar e mostrar o nome de cada 
aluno. 


complexas 


Muitos programas necessitam de 
v£rias listas alfanumericas relaciona- 
das entre si. 

Vamos tomar como exemplo o se- 
guinte problema de programagao: 

Queremos fazer um programa para 
entrar pelo teclado e armazenar na 


memdria do computador uma cader- 
neta de enderegos de amigos e co- 
nhecidos. Gostariamos que neste 
programa os dados relativos a cada 
pessoa fossem armazenadas em listas 
separadas: 

NOME$ -lista dos nomes das 
pessoas 

ENDEREQO$ -lista dos enderegos 

TELEFONES -listas dos telefones 

Assim, por exemplo, os dados so- 
bre as pessoas seriam armazenadas 
nos elementos das listas: 


INDICE 

NOME$ 

ENDEREQOS 

TELEFONES 

1 

Maria Alice 

Rua do Bonfim, 122 

234-3443 

2 

Roberto 

Av. da Praia, 12/456 

123-5566 

3 

Susana 

Pga. dos Coqueiros, 9 

32-4567 

4 

Tio Ze 

Rua do Bonde, 334 

64-5980 

etc. 


Note que os elementos NOME$ (5), 
ENDEREQOS (5) e TELEFONES (5), 
por exemplo, contdm dados da pes¬ 
soa n? 5 em nossa caderneta. 

Organizando os dados dessa for¬ 
ma, ser& mais fecil programar as di- 
versas fungOes que caracterizam um 
programa de cadastramento de mfor- 
magQes, como d o caso da nossa ca¬ 
derneta de enderegos. 

Programas desse tipo tdm normal- 
mente as seguintes fungdes (partes do 
programa que realizam daterminadas 
tarefas em relagSo aos conjuntos de 
dados): 

- incluir na caderneta os dados de 
uma pessoa; 


- procurar o telefone ou enderego 
de uma determinada pessoa; 

- modificar os dados de uma pessoa 
(por exemplo, se ela mudou de te¬ 
lefone ou de enderego). 

Uma forma bastante simples e mui- 
to utilizada de programar a opgao do 
usudrio por estas fungOes £ um menu. 

Na gi'ria de computagSo, um menu 
6 uma lista das opgOes dispom'veis de 
processamento dentro de um deter- 
minado programa, apresentada ao 
usu^rio para que ele selecione uma. 

Em nosso programa, um exemplo 
pr^tico de menu seria: 


AGENDA TK 

CADERNETA DE ENDERECOS 

COMANDOS: 

. 

.titulodomenu 

T INCLUIR UM NOME 

2 MODIFICAR DADOS 

3 INFORMAR DADOS 

. 

.lista de comandos 

4 FIM 

. 

.comando para terminar o 

programa 

DIGITE UM NUMERO: 

. 

.mensagem de solicitagao 
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A apresentagdo deste menu geral- 180 PRINT "DIGITE UM 
mente d colocada logo no infcio do NUMERO:" 

programa: 190 IMPUT OPCAO 

200 IF OPCAO < 1 THEN 

40CLS GOTO 190 

50 PRINT " AGENDA TK" 210 IF OPCAO >4 THEN 

60 PRINT "CADERNETA DE GOTO 190 

ENDERECOS" 

70 PRINT A linha 190 fica aguardando ate 

80 PRINT " COMANDOS:" que o usudrio dlgite um numero cor- 

90 PRINT " =============== respondente d opgdo que ele deseja 

-PYPPi lfpr 

100 PRINT "1 INCLUIR 

UM NOME" As linhas 200 e 210 testam se o nu- 

120 PRINT "2 MODIFICAR mero digitado estd situado entre 1 e 4 

DADOS" (as opgOes disponfveis). Se for digita- 

130 PRINT "3 INFORMAR do um numero diferente destes, o 

DADOS" programa retornard d 1 linha 190, ate 

150 PRINT "4 FIM" que a entrada esteja correta. 

160 PRINT " =============== 

-======== " A partir daf, a estrutura do progra- 

170 PRINT ma poderd ser a seguinte: 



Explicando: 


Apds a escolha do usudrio, o pro¬ 
grama desvia para o segmento apro- 
priado, que ird realizar aquela fun- 
gdo. Depois de termind-la, retorna ao 
infcio do programa, para apresentar 
de novo o menu (exceto quando o 
usudrio escolhe terminar o progra¬ 
ma). 


Essa estrutura permite que o usud- 
rio do programa realize facilmente 
uma sdrie de tarefas, na ordem que 
julgar mais interessante, sem necessi- 
dade de "decorar" comandos por ex- 
tenso ou ser obrigado a seguir uma 
ordem inflexfvel de processamento. 

Continuando a programagdo, de- 
vemos dimensionar previamente os 
conjuntos alfanuntericos que serdo 
utilizados: 


37 DIM NOME$ (50,25) 

38 DIM ENDERECOS (50,25) 

39 DIMTELEFONES (50,10) 

Note que dimensionamos a cader- 
neta para um mdximo de 50 nomes de 
25 caracteres cada, mais os endere¬ 
gos, tambdm de 25 caracteres cada, e 
os telefones, com 10 caracteres cada. 

Portanto, a quantidade de memdria 
a ser ocupada por esses conjuntos se¬ 
rd de: 

50 x 25 + 50 x 25 + 50 x 10 = 
3 000 caracteres 

Portanto, atengdo : o programa ndo 
poderd ser utilizado em microcompu- 
tadores com dois kbytes de memdria 
(versao bdsica do TK 82 e do TK 83); 
apenas em computadores de maior 
capacidade. 

Para armazenar um numero maior 
ou menor de enderegos, basta alterar 
os valores nos comandos DIM. 

Observe tambdm que cada infor- 
magao tern um -limite mdximo em nu¬ 
mero de caracteres, e estes serao 
"podados" automaticamente se ultra- 
passaram esse limite de comprimen- 
to. 


Agora, podemos verificar qual foi 
a opgao dada pelo usudrio e desviar o 
programa de acordo com o resultado: * 

250 IF OPCAO = 1 THEN GOTO 
300 

260 IF OPCAO = 2 THEN GOTO 
400 

270 IF OPCAO = 3 THEN GOTO 
500 

280 IF OPCAO = 4 THEN STOP 


Agora, a partir da linha 300, colo- 
camos o setor de entrada de dados. 
Vamos definir a varidvel NUM para 
contar o numero de enderegos arma- 
zenados na caderneta. Inicialmente, 
d claro, ele serd zero. A cada entrada 
na caderneta de uma nova pessoa, 
esse numero serd incrementado por 
mais um: 


300 LET NUM = NUM + 1 
310 IF NUM > 25 THEN GOTO 900 
320 CLS 

330 PRINT "ENDERECO NO.";NUM 
335 PRINT " =============== " 

340PRINT "NOME:" 

345 INPUT NOME$ (NUM) 

350PRINT "ENDERECO:" 

355 INPUT ENDERECOS (NUM) 

360 PRINT "TELEFONE:" 

365 INPUT TELEFONES (NUM) 

370 GOTO 40 
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A linha 310 tem por objetivo impe- 
dir a entrada de mais de 25 nomes, 
pois assim "estouraria” a capacidade 
dimensionada para os conjuntos. 


A seguir programamos o segmento 
de modificagao de dados. Inicial- 
mente mostramos no alto da tela co- 
mo estao os dados da pessoa solicita- 
da, e depois pedimos os dados novos: 


400 CLS 

410 PRINT ''ENTRE O NUMERO DO 
REGISTROASER 
MODIFICADO:" 

415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IF X >25 THEN GOTO 415 
430 PRINT 

435 PRINT "ENDERECO NO.";X 
440 PRINT " =============== " 

445 PRINT “NOME:";NOME$(X) 

450PRINT "ENDERECO:"; 

ENDERECOS(X) 

455 PRINT "TELEFONE:"; 

TELEFONE$(X) 

460PRINT "NOVO NOME:" 

465 INPUT NOME$(X) 

470PRINT "NOVO ENDERECO:" 
475 INPUT ENDERECO$(X) 

480 PRINT "NOVO TELEFONE:" 

485 INPUT TELEFONE$(X) 

490 GOTO 40 


Finalmente, podemos programar o 
segmento de procura. Nesse caso, o 
usuario deve fornecer o nome da pes¬ 
soa desejada (exatamente como esta 
gravado no conjunto NOME$), e o 
programa procurara: 

500 CLS 

510 PRINT "DIGITE O NOME DA 
PESSOA:"; 

520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 
550 IF X$ < > NOME$(I) THEN 
GOTO 580 

560 PRINT "ENDERECO:"; 

ENDERECO$(I) 

565 PRINT "TELEFONE:"; 

TELEFONE$(I) 

570 PAUSE 600 
575 GOTO 40 
580 NEXT I 

590 PRINT "NAO CONHECO ESTE 
NOME" 

595 GOTO 510 

Se todos os nomes forem testados 
(linha 550) e nao for achado o pedi- 
do, o programa avisa ao usuario, 
ap6s terminar a alga da linha 580. 

Temos agora o nosso programa 
completo, com os comentarios nos lu- 
gares apropriados: 


10 REM****************************** 

15 REM * PROGRAMA AGENDA 1.00 * 

20 REM * PARA LOGICA SINCLAIR 
25 REM * PROGRAMA R. SABBATINI * 

30 REM ****************************** 

32 REM 

34 LET NUM = 0 

37 DIM NOME$(50,25) 

38 DIM ENDERECO$(50,25) 

39 DIM TELEFONE$(50,10) 

40 CLS 

50 PRINT" AGENDATK" 

60 PRINT" CADERNETADEENDERECOS" 

70 PRINT 

80 PRINT" COMANDOS:" 

100 PRINT "1 INCLUIR UM NOME" 

120 PRINT "2 MODIFICAR DADOS" 

130 PRINT "3 INFORMAR DADOS" 

150 PRINT "4 FIM" 

170 PRINT 
172 REM 

174 REM ***** SOLICITAR E TESTAR OPCAO * 
176 REM 

180 PRINT "DIGITE UM NUMERO:" 

190 INPUT OPCAO 
200 IF OPCAO < 1 THEN GOTO 190 
210 IF OPCAO >4 THEN GOTO 190 
212 REM 

214 REM ***** DIMENSIONAR CONJUNTOS * * * 
216 REM 
242 REM 

244 REM ***** DESVIAR PARA OPCAO ***** 
246 REM 

250 IF OPCAO = 1 THEN GOTO 300 
270 IFOPCAO = 2 THEN GOTO 400 
280 IF OPCAO = 3 THEN GOTO 500 
290 IF OPCAO = 4 THEN STOP 


292 REM 

294 REM ***** ADICIONAR NOMES ***** 

296 REM 

300 LET NUM = NUM +1 

310 IF NUM >25 THEN GOTO 900 

320 CLS 

330 PRINT "ENDERECO NO.";NUM 
335 PRINT " =============== " 

340 PRINT "NOME:" 

345 INPUT NOME$(NUM) 

350 PRINT "ENDERECO:" 

355 INPUT ENDERECO$(NUM) 

360 PRINT "TELEFONE:" 

365 INPUT TELEFONE$(NUM) 

370 GOTO 40 
380 REM 

382 REM ***** MODIFICAR DADOS ***** 

384 REM 
400 CLS 

410 PRINT "ENTRE O NUMERO DO REGISTRO 
A SER MODIFICADO:" 

415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IF X> 25 THEN GOTO 415 
430 PRINT 

435 PRINT "ENDERECO NO. ";X 
440 PRINT " =============== " 

445 PRINT "NOME:";NOME$(X) 








450 PRINT "ENDERECO:"; ENDERECO$(X) 
455 PRINT "TELEFONE:"; TELEFONES(X) 
460 PRINT "NOVO NOME:" 

465 INPUT NOME$(X) 

470 PRINT "NOVO ENDERECO:" ■ 

475 INPUT ENDERECO$(X) 

480 PRINT "NOVO TELEFONE:" 

485 INPUT TELEFONE$(X) 

490 GOTO 40 
492 REM 

494 REM ***** PROCURA DADOS ***** 
496 REM 
500 CLS 

510 PRINT"DIGITEONOMEDAPESSOA:"; 
520 INPUT X$ 

530 PRINT X$ 

540 FORI =1 TONUM 

550 IFX$< >NOME$(I) THEN GOTO 580 

555 F0RJ = 2T03 

560 PRINT "ENDERECO:"; ENDERECO$(I) 
565 PRINT "TELEFONE:"; TELEFONE$(I) 

570 PAUSE 600 
575 GOTO 40 
580 NEXT I 

590 PRINT "NAO CONHECO ESTE NOME" 
595 GOTO 510 


Digite este programa no computa- 
dor e teste-o com vdrios dados. 



Modifique o programa acima para in- 
cluir as seguintes fungoes: 


1 - exclusao de urn nome da cader- 
neta {diea: o programa solicita o mi- 
mero do registro a ser excluido e em 
seguida coloca espagos em branco 
nos conjuntos correspondentes); 


2 - listagem de todos os nomes co- 
locados na cademeta (dica: coloque 
um registro em cada linha da tela, 
comegando com o numero do regis¬ 
tro, depois o nome, o enderego e o te- 
lefone). 


atrizes 

alfanumericas 


Da mesma forma como podemos ter 
conjuntos num^ricos bidimensionais 
em BASIC, tamb£m £ possivel arrna- 
zenar dados literals em conjuntos 
desse tipo. 


Essa possibilidade torna-se bastan- 
te util quando desejamos programar 
listas que tern vdrias informagOes re- 
lacionadas, como no exemplo da se- 
gao anterior (caderneta de endere- 
gos). 


NOME$ -lista dos nomes das 

pessoas 

ENDEREQO$ -lista dos enderegos 
correspondentes 

TELEFONE$ -lista 'dos telefones 
correspondentes 


Nesse novo esquema, teriamos 
uma matriz (chamada DADOS$, por 
exemplo, com 25 linhas, ou seja, uma 
para cada registro e tres colunas, 
uma para cada campo). 

Assim, por exemplo, os dados so- 
bre as pessoas seriam armazenados 
nos elementos da matriz: 


COLUNA 



LINHA 

i 

2 

3 

Como voce verci, a programagao 

1 

Maria Alice 

Rua do Bonfim, 122 

234-3443 

se torna mais fecil, compacta e gen£- 
rica se usarmos uma unica matriz de 

2 

Roberto 

Av. da Praia, 12/456 

123-5566 

dados para representar os diferentes 
compos de informagao do nosso ca- 

3 

Susana 

Pga. dos Coqueiros, 9 

32-4567 

dastro. 

4 

Tio Z6 

Rua do Bonde, 334 

64-5980 

Como voce se lembra, a caderneta 
tinha os seguintes conjuntos para ar- 
mazenamento de dados literals: 

etc. 
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Organizando os dados dessa for¬ 
ma, serd ainda mais fdcil programar 
as diversas fungOes de cadastramento 
de informagOes da nossa caderneta 
de enderegos. 

Na programagdo, basta que 
dimensionemos a matriz: 

220 DIM DADOS$(50,3,25) 

Observe que dimensionamos a ca- 
demeta para um mdximo de 50 pes- 
soas (reqistros), com trbs campos ca- 
da, de 25 reqistros. O terceiro nume- 
ro da declaragdo DIM serve para es- 
pecificar o comprimento de cada da¬ 
do literal nesta matriz, que, nesse ca- 
so, deve ser fixo para todos os cam¬ 
pos. 

Portanto, a quantidade de membria 
a ser ocupada por esses conjuntos se¬ 
rd de: 

50x 25 + 50x 25 + 50x 25 = 

3 750 caracteres 

Para armazenar um numero maior 
ou menor de enderegos, basta alterar 
os valores nos comandos DIM. 

Podemos, em sequida, definir os 
nomes dos campos, utilizando outro 
conjunto, chamado CAMPOS$. 

36 DIM CAMPOS$(3) 

37 LET CAMPOS$( 1) = "NOME" 

38 LET CAMPOS$(2) = 
"ENDERECO" 

39 LET CAMPOS$(3) = 

"TELEFONE" 

Seguindo a programagdo do exem- 
plo anterior da caderneta, a partir da 
linha 300, colocamos o setor de entra- 
da de dados. Vamos definir a varidvel 
J para contar o numero de campos em 
cada reqistro, e que serd incrementa- 
da por uma alga FOR...NEXT: 

300 LET NUM = NUM + 1 

310 IF NUM > 25 THEN GOTO 900 

320 CLS 

330 PRINT "ENDERECO NO.";NUM 
335 PRINT ” =============== " 

340 FOR J = 1 TO 3 

350 PRINT CAMPOS$(J);":"; 

355 INPUT DADOS$(NUM,J) 

365 NEXT J 
370 GOTO 40 

Compare com o proqrama ante¬ 
rior, para verificar como este ficou 
muito mais compacto. 

A seguir, programamos o segmen- 
to de modificagdo de dados. Inicial- 


mente mostramos no alto da tela co¬ 
mo estdo os dados da pessoa solicita- 
da, e depois pedimos os dados novos. 
Aqui tambem usamos algas FOR... 
NEXT: 

400 CLS 

410 PRINT "ENTRE O NUMERO DO 
REGISTROASER 
MODIFICADO:" 

415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IF X > NUM THEN GOTO 415 
430 PRINT 

435 PRINT "ENDERECO NO.";X 
440 PRINT " =============== " 

445 FOR J = 1 TO 3 

450 PRINT CAMPOS$(J);":"; 

DADOS$(X,J) 

455 NEXT J 
460 PRINT 
465 FOR J = 1 TO 3 
470 PRINT "NOVO ";CAMPOS$ 
(J);":"; 

475 INPUT DADOS$(X,J) 

480 NEXT J 


490 GOTO 40 

Finalmente, podemos programar o 
segmento de procura. 

500 CLS 

510 PRINT "DIGITE O NOME DA 
PESSOA:"; 

520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 
550 IF X$ < > NOME$(I) THEN 
GOTO 580 
555 FOR J = 2 TO 3 
560 PRINT CAMPOS$(I,J) 

565 NEXT J 
570 PAUSE 600 
575 GOTO 40 
580 NEXT I 

590 PRINT "NAO CONHECO ESTE 
NOME" 

595 GOTO 510 

Temos agora o nosso programa 
completo, com os comentarios nos lu- 
gares aproDriados: 


10 REM****************************** 

15 REM * PROGRAMA AGENDA 1.00 * 

20 REM * PARA LOGICA SINCLAIR 
25 REM * PROGRAMA R. SABBATINI * 

30 rem****************************** 

32 REM 

34 LET NUM = 0 

35 DIM DADOS$(50,3,25) 

36 DIM CAMPOS$(3) 

37 LET CAMPOS$( 1) = "NOME" 

38 LET CAMPOS$(2) = "ENDERECO" 

39 LET CAMPOS$(3) = "TELEFONE" 

40 CLS 

50 PRINT" AGENDATK" 

60 PRINT" CADERNETA DE ENDERECOS" 

70 PRINT 

80 PRINT" COMANDOS:" 

90 PRINT"========================= 

100 PRINT "1 INCLUIR UM NOME" 

120 PRINT "2 MODIFICAR DADOS" 

130 PRINT "3 INFORMAR DADOS" 

150 PRINT "4 FIM" 

160 PRINT" ======================== 

170 PRINT 


172 REM 

174 REM * * * * SOLICITAR E TESTAR OPCAO * * * * 
176 REM 

180 PRINT "DIGITE UM NUMERO:" 

190 INPUT OPCAO 
200 IF OPCAO < 1 THEN GOTO 190 
210 IF OPCAO >4 THEN GOTO 190 
212 REM 


214 REM * * * * DIMENSIONAR CONJUNTOS * * * * 
216 REM 
242 REM 

244 REM * *? * DESVLAR PARA OPCAO * * * * 

246 REM 

250 IF OPCAO = 1 THEN GOTO 300 
270 IF OPCAO = 2 THEN GOTO 400 
280 IF OPCAO = 3 THEN GOTO 500 


n 
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290 IF OPCAO = 4 THEN STOP 
292 REM 

294 REM * * * * ADICIONAR NOMES * * * * 

296 REM 

300 LET NUM = NUM + 1 

310 IF NUM >25 THEN GOTO 900 

320 CLS 

330 PRINT "ENDERECO NO.NUM 
335 PRINT " =============== " 

340 FOR J = 1 TO 3 

350 PRINTCAMPOSS(J);":"; 

355 INPUT DADOS$(NUM,J) 

360 PRINT “TELEFONE:" 

365 NEXT J 
370 GOTO 40 
380 REM 

382 REM * * * * MODIFICAR DADOS * * * * 

384 REM 
400 CLS 

410 PRINT "ENTREONUMERO DO REGISTRO 
ASERMODIFICADO:" 

415 INPUT X 

420 IFX< 1 THENG0T0415 
425 IF X > NUM THEN GOTO 415 
430 PRINT 

435 PRINT "ENDERECO NO.";X 
440 PRINT " =============== " 

445 FOR J = 1 TO 3 

450 PRINT CAMPOS$(J);DADOS$(X,J) 

455 NEXT J 

460 PRINT 

465 FOR 1 = 1 TO 3 

470 PRINT "NOVO CAMPOSS (J);":"; 

475 INPUT DADOS$(X,J) 

480 NEXT J 
490 GOTO 40 
492 REM 

494 REM * * * * PROCURA DADOS * * * * 

496 REM 
500 CLS 

510 PRINT "DIGITE O NOME DA PESSOA:"; 
520 INPUT X$ 

530 PRINT X$ 

540 FOR I = 1 TO NUM 

550 IFX$< >NOME$(I)THEN GOTO 580 

555 FOR J = 2 TO 3 

560 PRINT CAMPOS$(I,J) 

565 NEXT I 
570 PAUSE 600 
575 GOTO 40 
580 NEXT I 

590 PRINT "NAO CONHECO ESTE NOME" 
595 GOTO 510 


Digite este programa no computa- informagao (por exemplo, cidade, 

dor e teste-o com varios dados. CEP, data de aniversario etc.), basta- 

ria modificar o dimensionamento da 
linha 220, adicionar os nomes no con- 
O mais interessante do programa 6 junto CAMPOSS e, em seguida, mo- 

que elea bastante amplo, pois se qui- dificar o valor final das algas FOR... 

sessemos adicionar outros campos de NEXT, nas linhas 340, 445, 465 e 555. 
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? E $ T IS 


10.1. Defina: 

conjunto numdrico:. 

conjunto alfanumerico:. 

vetor:. 

matriz:. 

mdice: 


10.2. Qual d a fungao da declaragao DIM ? 


10.3. Escreva um programa para realizar a seguinte tarefa: urn clube de afi¬ 
cionados de microcomputadores deseja fazer uma lista de todos os seus sdcios, 
na qual conste a idade de cada um e a marca do microcomputador que possui. 
O programa, depois de entrados os dados, informara: 

— o numero de sdcios que tern microcomputadores marca TK 85; 

— o numero de sdcios que tem microcomputadores marca Apple; 

— o numero de sdcios que tdm outros tipos de microcomputador; 

— a idade mddia dos sdcios do clube; 

— o nome do sdcio mais novo do clube. 

Utilize conjuntos unidimensionais chamados NOME$, IDADE e COMPU- 
TADORE$ para registrar os dados acima. 


10.4. Seja a matriz abaixo: 
DIM DADOS(2,3) 


0 

0 

1 


1 2 3 


2 














Preencha as caselas da matriz com os dados gerados sucessivamente pelos 
programas abaixo: 


a. 10 LET 1 = 0 
20 LET J = 2 

30 FOR M = I TO J 
40 LET DADOS(M,M) = 1 
50 NEXT M 

60 LET DADOS(2,3) = 1 

b. 70 FOR 1 = 0 TO 2 
80 FOR J = 0 TO 2 

90 IF I = J THEN GOTO 110 
100 LET DADOS(I, J) = 0 
110 NEXT J 
120 NEXT I 

c. 130 LET SOMA = 0 
140 FOR COL = 0 TO 3 

150 LET SOMA = SOMA + DADOS(0,COL) 
160 NEXT COL 
170 PRINT SOMA 


Que valor sera mostrado na tela quando o computador executar a linha 170 ? 


10.5. Escreva por extenso a capacidade, em numero de linhas, de colunas e 
de caracteres, dos seguintes conjuntos literals: 


a. DIM UVROS$(100,50) 

b. DIMX$(12,25,5) 

c. DIM ARR$(1,100) 
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C A P I T U L O 
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II 

I | ESENHANDO 
I I COM O 
■ I COMPOTADOB 


Voc& jd viu, no capitulo 5 (pdginas 
23 a 25), que existem alguns caracte- 
res gr&ficos que podem ser usados 
dentro de comandos PRINT para fa- 
zer desenhos na tela. 


Assim, por exemplo, podemos de- 
senhar um belo padrao de blocos 
gr&ficos na tela utilizando o seguinte 
programa: 

10LETP$ = "BDW1" 

20 PRINT P$; 

30 GOTO 20 


Observe que a linha de caracteres 
grdficos armazenados em P$ £ forma- 
da pelos seguintes caracteres grdfi- 
cos: 



Voc& j£ aprendeu como sao digita- 
dos estes caracteres gr^ficos no pro¬ 
grama, utilizando a tecla GRA¬ 
PHICS. 





J 


Nesse ponto, voc& deve pressionar 
as teclas SHIFT e 9, simultaneamen- 
te, para entrar ho modo grdfico, e em 
seguida digitar de cinco a nove ca¬ 
racteres grdficos quaisquer. 


Para dar seqii6ncia ao programa, 
saia do modo grdfico, pressionando 
novamente as teclas SHIFT e 9, e de- 
pois a tecla NEW LINE. O mesmo 
efeito pode ser conseguido se voc& 
pressionar duas vezes a tecla NEW 
LINE. 


Usando a sua imaginagao, voc& 
podera "inventar" muitos gr&ficos di- 
ferentes, fazendo uso de vdrias ins- 
trugOes PRINT. 


Por exemplo, vamos fazer um pro¬ 
grama para desenhar a cara do ET (o 
simp^tico personagem extraterrestre 
do filme do mesmo nome): 



1. Faga programas para realizar os 
seguintes desenhos na tela, usando 
uma seqiidncia de comandos PRINT 
gr&ficos: 

a. o mapa do Brasil, indicando por 
uma cruz a cidade em que voc6 
mora; 

b. a bandeira do Brasil; 

c. uma espagonave flutuando acima 
de uma paisagem lunar; 

d. uma locomotiva com dois vagSes; 

e. os arranha-c6us de uma cidade 
(paisagem notuma). 

2. Modifique o programa de treina- 
mento de tabuada (p^ginas 71 a 72), 
para mostrar a figura de um palhaci- 
nho rindo, se a crianga acertar o pro- 
blema, e chorando, se a crianga er- 
rar. 

3. Invente outros desenhos e faga 
programas para eles. 



utros truques 
graficos 


Quando voc£ executar este pro- 
graminha simples, com o comando 
RUN, aparecer^ um padrao gr^fico 
repetido, que encherd toda a tela, de 
cima para baixo. 

Para fazer experi&ncias com dife- 
rentes linhas de conjuntos graficos, 
modifique o programa para aceitar os 
caracteres introduzidos pelo coman¬ 
do INPUT, assim: 

10 INPUT P$ 

20 PRINT P$; 

30 GOTO 20 


Quando o programa a executado 
pela primeira vez, aparece na tela o 
sinal de prontidao, que avisa ao 
usudrio que eie deve digitar uma li¬ 
nha de literals (caracteres): 


10 PRINT 
20 PRINT " 
30 PRINT " 
40 PRINT " 
50 PRINT " 
60 PRINT " 


Para fazermos o ET "espichar" o 
pescogo, podemos colocar os seguin¬ 
tes comandos, dentro de uma alga 
FOR: 

70 FOR 1= 1 TO 10 
80PRINT "mm" 

90 NEXT I 


Veja o efeito interessante causado 
por este programa. 


Uma das coisas mais fascinantes 
que podemos fazer com um computa- 
dor pessoal 6 um videogame com de¬ 
senhos que se movem (por exemplo, 
um aviao que atravessa a tela de um 
lado para o outro). Esse tipo de tecni- 
ca de programagao 6 chamado de 
animagQo grdfico, pois ela corres- 
ponde h maneira como sao produzi- 
dos em filmes os desenhos animados. 

Para aprender a realizar uma ani- 
magao gr&fica no computador, pri- 
meiro temos que conhecer mais algu- 
mas caracteristicas de programagao 
da tela de video. 

A tela de video de computadores 
do tipo TK 82, TK 83, TK 85 etc. pode 
ser comparada a uma folha de papel 
guadriculado, onde cada guadradi- 
nho corresponded a uma posigZo 
determinada na tela: 
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Cada posigao na tela corresponde 
a um caractere. 

Quando a tela 4 apagada por um 
comando CLS, ou logo ap6s termos 
digitado o comando RUN, todas essas 
posigOes estarao em branco. 

Ao encontrar um comando PRINT, 
as posigOes na tela serao ocupadas 


pelos caracteres enviados por esse 
comando. 


Por exemplo, o programa: 

10CLS 
20 PRINT 
30 PRINT "ALO" 

40 PRINT TAB (5);"COMO VAI?" 
50 STOP 


vai escrever nas seguintes posigOes da tela: 
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Observe que cada comando PRINT 
faz o processo de escrita deslocar-se 
para a linha seguinte. A fungao TAB 
serve, no exemplo, para avangar dez 
posigOes, na segunda linha de im- 
pressao. 

Podemos comparar o esquema de 
posigOes na tela a uma matriz ou ta- 
bela bidimensional, que voc& ja 
aprendeu no capftulo anterior. 


As linhas da tabela correspondent 
as linhas sucessivas na tela. Elas sao 
numeradas de 0 a 21, de cima para 
baixo, comegando pela linha supe¬ 
rior da tela. 

As colunas da tabela correspon¬ 
dent as colunas de impressao em uma 
determinada linha. Elas sao numera¬ 
das de 0 a 31, da esquerda para a di- 
reita. 
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Dessa forma, o programa nao pre- 
cisa ter v*rias linhas PRINT, coloca- 
das em uma certa ordem. 

Voc& vai entender melhor esse 
processo, ao estudar o programa 
abaixo. 

O seu objetivo * escrever os nomes 
dos quatro pontos cardeais ("rosa dos 
ventos" ou bussola), nas quatro bor- 
das da tela, assim: 


Na realidade, a tela de video do seu 
computador tern 23 linhas. Mas as li¬ 
nhas 22 e 23 normalmente nao podem 
ser usadas por um comando PRINT. 
Elas estao reservadas pelo interpreta- 
dor BASIC para as seguintes fun-' 
g&es: 

linha 22: linha de entrada de dados 
(onde aparece o cursor 
"[T]"cada vez que um co¬ 
mando INPUT * encontra- 
do no programa; 

linha 23: * usada para mostrar men- 
sagens de erro (por exem- 
plo, 6/160). 

Da mesma forma que em uma ma- 
triz, podemos referenciar cada posi- 
gfto da tela de video, por meio dos 
seus Indices, ou seja: 

posigfio da linha 

posigflo da coluna 

O comando que faz esta refer&ncia 
* chamado de AT, e * sempre usado 
conjuntamente com o comando 
PRINT. 

Por exemplo: 

PRINT AT 5,10; "ALO" — escrever* 
a palavra ALO na linha n? 5, 
contando de cima para baixo, e co- 
megando na coluna 10 desta linha, 
contando da esquerda para a direi- 
ta; 

PRINT AT 20,0; "H" - colocar* 
na linha 20, e na coluna 0, o carac- 
tere gr*fico H. 

AT, em ingles, significa EM. 


Portanto, PRINT AT 2,5 tern o se- 
guinte significado: 

ESCREVA EM 2,5 


O primeiro valor que vem depois 
da palavra AT * o numero da linha. 
O segundo valor (que * separado do 
primeiro por uma vlrgula) * o nume¬ 
ro da coluna. 

Esses numeros nao podem ser me* 
nores do que zero nem maiores do 
que o numero m*ximo de linhas ou 
colunas na tela, conforme o caso. 

Por exemplo, 

PRINT AT -2,20 
PRINT AT 2,56 

estao errados, pois, no primeiro 
exemplo, -2 * um numero de linha 
que nao existe e, no segundo, 56 * 
um numero de coluna que tamb*m 
nao existe. 

Portanto, o comando PRINT AT 6 
muito util, pois permite que escreva- 
mos qualquer coisa (caracteres nor- 
mais ou gr*ficos), em qualquer ponto 
da tela, como um desenho em uma 
folha de papel. 

Por exemplo, o programa: 

10 PRINT AT 11,14;"MEIO" 

escrever* no meio da tela, aproxima- 
damente, a palavra MEIO: 



NORTE 

1 

OESTE 


LESTE 

| 

SUL 



A primeira coisa que voc& deve fa- 
zer * calcular as posigOes de linha e 
coluna de cada palavra. 

Uma forma de fazer este c*lculo * 
escrever as palavras em um papel 
quadriculado comum, marcado com 
os limites da tela. 

No exemplo acima, teremos: 
palavra n? de linha n? de coluna 


NORTE 0 13 

OESTE 11 0 

LESTE 11 27 

SUL 21 14 


Escolhemos a coluna 13 para a pa¬ 
lavra NORTE porque a coluna do 
meio * de numero 15, e a palavra tern 
5 letras. Assim, ela ficar* aproxima- 
damente centralizada na linha n? 0. 
Da mesma forma, escolhemos a colu¬ 
na 14 para a palavra SUL. 

As palavras OESTE e LESTE serao 
colocadas na linha do meio. Escolhe¬ 
mos 27 para o n? de coluna da pala¬ 
vra LESTE porque assim ela ocupar* 
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ate a coluna n? 31, ficando encostada 
na borda direita da tela. 

Agora que o trabalho de cdlculo 
este feito, escrever o programa d ele- 
mentar: 

10CLS 

20 PRINT AT 0,13;"NORTE" 

30PRINTAT11,0;"OESTE" 

40PRINTAT11,27;"LESTE" 

50 PRINT AT 21,14;"SUL" 

Note que nSo faria diferenga, para 
o resultado final, se tivdssemos escri- 
to o programa assim: 

10CLS 

20 PRINT AT 0,13; "NORTE" 

30 PRINT AT 11,27;"LESTE" 

40PRINT AT 11,0;"OESTE" 

50 PRINT AT 21,14;"SUL" 

A unica coisa que iria mudar seria 
a ordem em que o computador escre- 
veria as palavras. 

O comando PRINT AT tem outra apli- 
cagSo muito interessante, para dotar 
seus programas de um aspecto mais 
"profissionar. 

Ao solicitarmos alguma entrada ao 
operador de um programa, seria 
ideal que a mensagem aparecesse lo¬ 
go acima da linha de digitagao (linha 
n? 22): 



Depois de digitar o nome, quere- 
mos outra mensagem assim: 



Para fazer isso, nada mais fdcil: 

10 PRINT AT 21,0;"QUAL E O SEU 
NOME ?" 

20 INPUT NOME$ 


30 PRINT AT 21,0;"QUAL E A SUA 
IDADE ?" 

40 INPUT IDADE 

Note que a segunda mensagem (li¬ 
nha 30) e mais longa que a primeira 
(linha 10). Por isso, ao ser colocada a 
segunda mensagem na tela, ela enco- 
brird a mensagem anterior, Id coloca¬ 
da. 


Entretanto, se ocorresse o contrd- 
rio, isto d, se a segunda mensagem 
fosse mais curta que a primeira, as 
duas se "misturariam" (um pedago da 
primeira continuaria na tela). Por 
exemplo, o programa 


10 PRINT AT 21,0;"QUAL E O SEU 
NOME ?" 

20 INPUT NOME$ 

30 PRINT AT 21,0;"E A SUA 
IDADE T 
40 INPUT IDADE 


originaria a seguinte mensagem, 
quando executada a linha 30: 



Para evitar isso, temos antes que 
'Timpar" a linha assim: 

25 PRINT AT 21,0;" 

o que d mais rdpido do que dar um 
comando CLS (que iria limpar toda a 
tela, inclusive a linha 21). 


Ou, entSo, colocar alguns espagos 
em branco apbs a segunda mensa¬ 
gem, de modo a superpd-los ao espa- 
go ocupado pelo restante da mensa¬ 
gem anterior: 


10 PRINT AT 21,0;"QUAL E O SEU 
NOME ?" 

20 INPUT NOME$ 

30 PRINT AT 21,0;"E A SUA 
IDADE ? " 

40 INPUT IDADE 



m desenho 
animado 


Vamos usar agora o comando 
PRINT AT para fazer uma animagSo 
grdfica. 

Movimentaremos um aviSozinho 
na tela, fazendo-o voar da esquerda 
para a direita. 

A imagem do aviso serd obtida por 
meio de uma linha assim: 



Vamos escolher uma linha da tela, 
por onde voard o aviso. Por exemplo, 
a linha 10. 

Para colocar o aviso em posigOes 
sucessivas na tela, vamos utilizar uma 
alga FOR...NEXT, assim: 

10FOR J = 0TO 26 
20 PRINT AT 10,J;“ 

30 PRINT AT 10J;" 

40 NEXT J 

A linha 20 serve para desenhar a 
imagem do aviso, comegando na li¬ 
nha 10, coluna J. 

Assim, como J fica igual a 0, 1,2, 
3 .... etc., a cada repetigSo da alga 
FOR, que vai de 10 a 40, a imagem 
do aviso serd escrita nas posigOes 0, 
1, 2, 3 ... etc. da linha 10, dando a 
impressSo de locomogSo. 

A linha 30 serve para apagar o 
aviso da posigSo I, antes de colocd-lo 
em nova posigSo. Por isso, sSo escri- 
tos cinco caracteres em branco, so- 
bre a mesma posigSo anterior. Expe- 
rimente nSo colocar esta linha e veja 
o que acontece. 

O limite mdximo da alga J (ou seja, 
26) foi definido assim, pois o aviso 
tem cinco caracteres. 

Ao executar o programa, vocd po- 
de observar que a imagem do aviSo- 
zinho dd a impressSo de se movimen- 
tar com rapidez de um lado para ou- 
tro da tela. 

O programa, do jeito que estd, jd 
dd o mdximo de velocidade aparente 
ao aviso, se quisermos deslocd-lo 
uma posigSo de cada vez. 
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Para aumentar a velocidade de 
ammagao na tela, portanto, basta in- 
crementarmos a posigao do aviao de 
2 em 2 ou de 3 em 3, assim: 


c 

c 

□1 

A 

B 

B 

u 

□ 

■o 


10 FOR J = 0 TO 26 STEP 2 
20 PRINT AT 10, J;" 

30PRINT AT 10, J;" 

40 NEXT J 


Nao podemos usar um numero 
muito grande no STEP, entretanto, 
pois o aviao "pulara" muito na tela, e 
perderemos o efeito conttnuo de ani- 
magao. 


Para diminuir a velocidade do 
aviao a operagao 6 mais facil: basta 
colocarmos uma alga FOR de retardo 
de tempo, entre as linhas 20 e 30 e as 
linhas 30 e 40: 

10FOR J = 0TO26 

20 PRINT AT 10,J;" " 

25 FOR N = 1 TO 5 

27 NEXT N 

30 PRINT AT 10,J;" 

35 FOR N = 1 TO 5 
37 NEXT N 
40 NEXT J 


Se quisermos fazer um programa 
mais abrangente, que nos permita 
entrar dados de velocidade e linha de 
deslocamento do aviao, teremos: 


1 CLS 

2 PRINT "O VOO DO AVIAO" 

4 PRINT AT 21,0;''ALTURA 

(0 A 20) 

6 INPUT ALT 

7 PRINT AT 21,0,-''VELOCIDADE 
(0 A 20) 

8 INPUT VEL 

9 CLS 

10 FOR J = 0 TO 26 
20 PRINT AT 21 - ALT, J;" " 

25 FOR N = 1 TO 20 - VEL 
27 NEXT N 

30 PRINT AT 21-ALT,J;'' 

35 FOR N = 1 TO 20 - VEL 
37 NEXTN 
40 NEXT J 
50 GOTO 1 


Note que velocidade e altura sao 
respectivamente o inverso de retardo 
e posigao da linha na tela. Por isso, 
subtraimos os valores entrados de 
seus valores maximos, para poder- 
mos inverter! 


1. Fagaum programa deanimagaogra- 
fica para fazer um foguetinho desenha- 
do na parte de baixo da tela subir em tra- 
jetoria vertical ate o topo da mesma. 

Dica: e semelhante ao programa do 
aviso, apresentado anteriormente, so 
que o deslocamento 6 ao longo de uma 
coluna da tela (o numero da linha na de- 
claragSo AT e que muda, diminuindo a 
medida que o foguete sobe). 

2. O que faz o seguinte programa na 
tela? 

10 RAND 

20 LET X=INT(RND*30) +1 


M ais graficos 


O sistema de localizagSo de caracte- 
res na tela de video, usando o comando 


30 LET Y= INT(RND*20) +1 
40 PRINT AT Y,X;"*" 

50 GOTO 20 

Coloque o programa acima em seu 
computador e veja o resultado! 

3. Modifique o programa acima para 
colocar um maximo de 100 asteriscos na 
tela. 

4. Faga um programa para desenhar 
uma torneira na parte superior da tela, 
e que f ique pingando gotinhas de agua 
continuamente (animagSo grafica da 
gota caindo). 


PRINT AT, como voce percebeu muito 
bem, corresponde a uma especie de ma- 
pa ou grdfico com posigOes horizontais 
e verticais. 


Esse sistema de referencia e chamado 
de sistema de coordenadas ortogonais, 
pois os dois "eixos" de referencia (o ver¬ 
tical e o horizontal) sao perpendicula¬ 
res, ou ortogonais entre si: 


0H 

1 - 
2- 

vertical 3 - 

(linhas) 4 - 

5- 

6- 
7 - 

-1-1—b 1 1 1 1 1 .. 


i i i l i 1 1 1 1 1 1 1 1-1—r 

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

horizontal 

(colunas) 


Um ponto qualquer no meio desta 
"grade 7 ou quadriculado <§ localizado 
atrav^s de suas coordenadas, ou seja, os 
numeros correspondentes a linha (coor- 
denada vertical) e a coluna (coordena- 
da horizontal) onde esta. Para cada par 
de numeros desse tipo, temos apenas um 
ponto correspondente na tela. O contra - 
rio tambam e verdadeiro: para cada 
ponto na tela, temos apenas um determi- 
nado par de coordenadas, e apenas um. 


O ponto na tela (um ponto nesse sis¬ 
tema de coordenadas no computador) 
recebe o nome de pixel. Este termo vem 
do ingl&s, e significa picture element 
(elemento grafico). As coordenadas, 
por sua vez, recebem os nomes de orde- 
nada (na vertical) e abscissa (na ho¬ 
rizontal). 

Ja se convencionou chamar de X a 
abscissa e de Y a ordenada de um ponto: 
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Para quern j& conhece o sistema de 
coordenadas ortoqonais (tambem cha- 
mada de cartesianas, em homenagem 
ao seu inventor, o matem^tico e f ildsofo 
francos Ren^ Descartes), podeparecer 


Acontece que, por razOes de facilida- 
de de programagfio do controle da tela 
gr&fica, como veremos, os idealizadores 
desse tipo de microcomputador preferi- 
ram um arranjo inverso, que hs vezes nos 
atrapalha, mas nao chega a prejudicar. 


estranho que o zero do eixo vertical (or- 
denadas) seja colocado na parte de ci- 
ma da tela. Normalmente, nos livros de 
matematica ou de geometria, isto apare- 
ce assim: 


No sistema que vimos at£ agora (co- 
mando PRINT AT), podemos colocar 
um caractere qualquer (grafico ou nao 
grafico), em qualquer ponto da tela. 


Esse sistema nos permite colocar fa- 
cilmente um texto ou um desenho em 
qualquer ponto da tela. 

Entretanto, ele tern uma desvanta- 
gem: se quisermos fazer um grafico mais 
detalhado, de modo a colocar na tela 
pontinhos menores, nao da. 

Examinando os caracteres graficos 
existentes no seu computador da linha 
Sinclair, voce vera que eles sao forma- 
dos pela combinagao de quatro subdi- 
visOes de um quadradinho grafico: 

BEffl 

Assim, qualquer caractere grafico 
(excetuando-se os que tern elementos de 
cor cinza) pode ser composto 
preenchendo-se quadradinhos meno¬ 
res, em qualquer combinagao: 


1 

2 

3 

4 


Portanto, podemos concluir que exis- 
te um pixel menor do que o caractere, e 
que corresponde a um tamanho quatro 
vezes menor, em area, do que o pixel 
que podemos manipular usando o co- 
mando PRINT AT. 


A linguagem BASIC dos computado- 
res da linha Sinclair tern comandos pa¬ 
ra manipular diretamente estes pixels 
menores. Com eles f ica muito mais facil 
tragar desenhos mais detalhados. 




Esses comandos sao: 

PLOT - para colocar um pontinho na 
tela 

UNPLOT - para apagar um pontinho 
da tela 


O sistema de coordenadas dos co¬ 
mandos PLOT e UNPLCT consiste em 
42 linhas, ou pontos no eixo vertical 
(ordenadas), e 64 colunas, ou pontos no 
eixo horizontal (abscissas): 
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ordenadas 



Note que, nesse novo sistema de coor- 
denadas, a posigao do eixo vertical e 
mais "correta" ou seja, semelhante a 
convengao adotada pelo sistema 
cartesiano. 

E muito facil usar os comandos PLOT 
e UNPLOT. Basta fomecer apenas dois 
valores separados por uma virgula, os 
quais indicam a ordenada e a abscissa 
do ponto desejado na tela: 


1. constantes numericas 

2. variaveis numericas 


3. expresses matematicas 


E claro que podemos misturar no 
mesmo PLOT qualquer um dos tipos 
acima: 


PLOT 0,3 — > traga um ponto na 
abscissa = 0 e ordenada = 3 


UNPLOT 5,2 —> apaga um ponto na 
abscissa = 5 e ordenada=2 


Os argumentos (valores X e Y) fome- 
cidos aos comandos PLOT e UNPLOT 
podem ser de tres tipos: 

PLOT 3,2 

PLOT X,ABC 
PLOT II,X(2) 

PLOT A + 1 ,B*24 + C 
PLOT X/2,SQR(X) 


PLOT 2,BC*X 
PLOT 12+C,K 
eta 


Exemplo: 

Exemplos: 

Exemplos: 



azendo 

pontinhos 


Colocar e apagar pontos (pixels) na 
tela grafica e bem facil com a ajuda dos 
comandos PLOT e UNPLOT. 

Experimente digitar, em modo direto 
(isto e, sem numero de linha), o seguin- 
te comando: 

PLOT 31,21 

Veja o que aconteceu na tela: 



Apareceu um pixel bem no meio da 
tela de video, ou seja, com as coordena- 
dasX=31 e Y=21. 


Agora experimente apagar este pon¬ 
to com o comando: 


UNPLOT 31,21 

Veja como o pontinho se apagou! 


Uma brincadeira interessante e repe- 
tir aqui aquele programa proposto nos 
exercfcios da ultima ligao, que serve pa¬ 
ra colocar pixels ao acaso na tela: 


10 RANDOM 
20 LET X=INT(RND*64) 
30 LET Y=INT(RND*44) 
40 PLOT X,Y 
50 GOTO 20 


Note que o numero aleatorio sorteado 
para a coordenada X varia entre 0 e 63 
(a fungao RND nunca atinge 1.0000),e 
entre 0 e 43 para a coordenada Y. O 
efeito final se assemelha a chuva mo- 
lhando uma calgada! 


Outro programa interessante serve 
para desenharmos qualquer coisa na te¬ 
la, fomecendo ao programa as coorde- 
nadas dos pontos que quisermos dese- 
nhar, um a um, na tela: 


10 REM DESENHOS NA TELA 
20 PRINT AT 21,0;"ENTRE VALOR 
DE X : #/ 

30 INPUT X 

40 PRINT AT 21,0;"ENTRE VALOR 
DE Y f 
50 INPUT Y 
60 PLOT X,Y 
70 GOTO 20 
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azendo retas 


Retas paralelas aos eixos vertical e ho¬ 
rizontal (ou seja ; as bordas da tela) po- 
dem ser tragadas com grande facilida- 
de. Basta dar varios comandos PLOT 
com coordenadas proxim as umas as ou- 
tras: se os pontinhos "grudarem" uns nos 
outros, darao a impressao visual de uma 
reta. 

Por exemplo, digite sucessivamente 
os comandos diretos: 

PLOT 31,21 
PLOT 32,21 
PLOT 33,21 

E veja o resultado final: 



Para nao f icar repetindo muitas vezes 
os comandos PLOT, podemos usar os 
comandos FOR.. .NEXT para tragar uma 
reta: 

10 FORX=31 TO 33 
20 PLOT X,21 
30 NEXTX 


Veja gue o resultado final deste pro- 
grama (apos digitarmos o comando 
RUN) e identico ao mostrado acima com 
os comandos PLOT sucessivos. Isso 
acontece porque a varidvel X assume os 
valores 31, 32 e 33, controlados pela al¬ 
ga FOR, e o valor 21 da vertical e manti- 
do constante. 


Veja este programa para tragar uma 
reta na horizontal, comegando em um 
determinado ponto e indo ate outro: 

10 REM RETAS HORIZONTAIS 
15 REM 

20 PRINT AT 21,0;"ENTRE VALOR 
INICIAL DE X :" 

30 INPUT XI 

40 PRINT AT 21,0;"ENTRE VALOR 
FINAL DE X 
50 INPUT XF 

60 PRINT AT 21,0;"EM QUE 
POSICAO HORIZONTAL:" 


70 INPUT Y 
80 FORX=XITOXF 
90 PLOT X,Y 
100 NEXTX 
110 GOTO 20 

Para entender melhor o esquema de 
coordenadas graf icas com os comandos 


1. canto inferior esquerdo 

2. canto inferior direito 

3. canto superior esquerdo 

4. canto superior direito 


Portanto, para tragar quatro linhas de 
um canto a outro, fazemos: 

10 REM MOLDURA PARA O TK 

20 FOR 1 = 0 TO 63 

30 PLOT 1,0 

40 PLOT 1,43 

50 NEXT I 

60 FOR J = 0 TO 43 

70 PLOT 0,J 

80 PLOT 63,J 

90 NEXT I 

AprimeiraalgaFOR...NEXT, quevai 
das linhas 20 ate 50, traga simultanea- 
mente as retas na parte de baixo (orde- 
nada 0), e de cima (ordenada 43), res- 
pectivamente. A reta aparece na tela 
porque a variavel I assume os valores 0, 
1, 2, 3, 4... eta, ate 63, "grudando" os 
pontinhos colocados na tela por cada 
instrugSo PLOT. 

A segunda alga FOR...NEXT, que vai 
das linhas 60 ate 90, faz a mesma coisa 
com as duas linhas verticais, situadas 
nas abscissas 0 e 63, respectivamente. 

O uso da alga nos da recursos bem 
poderosos para tragar retas de vdrios ti- 
pos. Por exemplo, para tragar uma reta 
pontilhada, assim: 


basta v acender" um ponto sim, um ponto 
nao, na tela, com a ajuda da instrugao 
STEP 

10 FOR I = 0 TO 63 STEP 2 
20 PLOT 1,21 
30 NEXT I 

Percebeu? 


PLOT e UNPLOT, vamos fazer um pro- 
grama bem simples, que serve para tra¬ 
gar uma moldura ao redor da tela grafi- 
ca (ou seja, quatro tragos finos coloca¬ 
dos nos limites da tela grafica). 

Os quatro cantos da tela grafica tern 
as seguintes coordenadas: 

X Y 

0 0 

63 0 

0 43 

63 43 



1. Modifique o programa que traga re¬ 
tas na horizontal, dados os pontos de inf- 
cio e fim, de modo que seja possi'vel tra¬ 
gar retas na vertical. 

2. Fagaum programa para desenharum 
retangulo qualquer na tela (apenas o 
seu contorno). O usuario devera fome- 
cer as coordenadas X e Y de cada canto 
da figura. 

3. Fagaum programa para desenharum 
retangulo qualquer na tela. O usuario 
devera fornecer os seguintes dados: 
coordenadas X e Y do canto inferior es¬ 
querdo do retangulo, tamanho do lado 
horizontal e tamanho do lado vertical. 

4. Comoo programa acima poderia ser 
modificado para preencher completa- 
mente o interior do retangulo (ou seja, 
desenhar um retangulo solido)? 

5. Faga um programa para tragar uma 
reta em diagonal, indo do canto inferior 
esquerdo ao canto superior direito da 
tela (atengao: este programa tern apenas 
tres linhas!) 

6. Modifique o programa que desenha 
pontinhos ao acaso na tela, para pedir ao 
usudrio os limites inferior, superior, di¬ 
reito e esquerdo de um retangulo na te¬ 
la, dentro do qual serao jogadas os pon¬ 
tinhos (ou seja, eles nao ocuparao a tela 
inteira, como no exemplo dado no 
texto). 
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nima?ao grafica 
com PLOT 


Podemos realizar animagOes grdficas 
com os comandos PLOT e UNPLOT, 
tambem. 

Veja este programa para simular uma 
bolinha caindo da parte de cima ate a 
parte de baixo da tela: 

10 FOR Y=43 TO 0 STEP -1 
20 PLOT 31 ,Y 
30 FOR T=1 TO 10 
40 NEXTT 
50 UNPLOT 31 ,Y 
60 NEXT Y 

A alga que vai da linha 30 a 40 causa 
um retardo de tempo, para fazer o pon- 
tinho se deslocar para baixo mais deva- 


gar, permitindo ao usuario enxergar o 
ponto tragado antes de ele se apagar da 
tela. Se voce modificar o valor 10 da li¬ 
nha 30, podera alterar esta velocidade 
para mais ou para menos. 

Mas atengao: o uso do PLOT e UN¬ 
PLOT para animagOes gr^ficas so da 
bons efeitos quando o desenho a ser tra- 
gado for bem pequeno (poucos pontos). 
Caso contrario, o desenho se far£ muito 
lentamente, bem como a animagao gra¬ 
fica (movimento) de suas partes. Para 
desenhos mais complexos e mais ade- 
quado usar o comando PRINT AT, con- 
juntamente com os caracteres graficos 
dispom'veis no teclado, como vimos na 
segao anterior. 


RESPOSTASAOS EXERCICIOS ANTERIORES 

Exercicio 2, p<ig. 80. Modifigue o pro- sultados a diferenga entre o numero de 
grama de calculo dos pontos ganhos dos pontos ganhtos por cada time e a media 
times, de modo que mostre na tela de re- geral. 


Solugao: 


10 PRINT "CAMPEONATO BRASILEIRO DE FUTEBOL" 
20 PRINT " TABELA DE PONTOS GANHOS" 

25 PRINT" VERSAO 3" 

30 PRINT 
40 REM 


50 REM = = = ENTRADA DE DADOS 

51 REM 

52 PRINT "QUANTOS TIMES?" 

54 INPUT NT 


70 PRINT "ENTRE O NUMERO DE PONTOS GANHOS" 
75 PRINT "PARA CADA TIME DA TABELA:" 

80 PRINT 


85FORN=l TO NT 

90 PRINT "TIME NUMERO ":N;" ? *■ 

100 INPUT T(N) 

110 PRINT T (N) 

120 NEXT N 
130 REM 

140 REM = = = CALCULO DA MEDIA 
150 REM 

160 LET SOMA=0 
165 CLS 


170FOR N=1 TO NT 
180 LET SOMA = SOMA + T(N) 

190 NEXT N 
200 REM 

210REM = = = MOSTRARESULTADOS 
220 REM 


400 LET MEDIA = SOMA/NT 
410 PRINT 


420 PRINT "MEDIA DOS PONTOS GANHOS = '• MEDIA 
422 PRINT ' 

425 FOR N=1 TO NT 

426 PRINT "TIME NUMERO N;" = T (N); "PONTOS GANHOS 
^PRmrWERENCADAMEDIA = MEDIA-T(N);" PONTOS" 

430 STOP 


//, 
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Exercicio 2, p6q. 88. Seja um conjunto 
DADO, com cinco linhas e quatro colu- 
nas. Escreva um programs com a alga 
FOR NEXT, para preencher com dados 
os elementos do conjunto DADO (por 
meio de um comando INPUT). 


Solugao: 

10FORLIN=1 TO 5 
20 FOR COL= 1 TO 4 
30PRINT "ENTRE VALOR DA LI- 
NHA LIN;" E COLUNA ";COL;" 

_ H, 

40 INPUT DADO (LIN, COL) 

50 PRINT DADO (LIN, COL) 

60 NEXT COL 
70 NEXT LIN 


Exercicio 3, pag. 88. Escreva um progra¬ 
ma para preencher com zeros todos os 
elementos do conjunto DADO. 


Solugao: 

10POR LIN=1 105 
20FORCOL=1104 
30 LET DADO (LIN, COL)=0 
40 NEXT COL 
50 NEXT LIN 


Exercicio 5, p£g. 88. Faga um programa 
para copiar uma das linhas da matriz 
DADO, para um vetor (conjunto unidi¬ 
mensional) chamado COPIA. 

Solugao: 

10 PRINT "QUE LINHA (1A5) ?" 
20 INPUT LIN 
30 FOR COL=1 TO 4 
40 LET COPIA (COL) =DADO 
(LIN, COL) 

50 NEXT COL 


Exercicio 6, p&q. 88. Faga um programa 
para copiar uma das colunas da matriz 
DADO, para um vetor chamado COPIA. 

Solugao: 

10 PRINT "QUE COLUNA (1 A 4) ?" 
20 INPUT COL 
30 FOR LIN=1105 
40 LET COPIA (LIN) = DADO 
(LIN, COL) 

50 NEXT LIN 

Exercicio 7, pdg. 88. Escreva um progra¬ 
ma para preencher com o valor 1 todos 
os elementos da diagonal principal de 
um conjunto A( 10, 10). 

Solugao: 

10 DIM A(10,10) 


20 FOR 1=1 ID 10 
30 LET A(I,I)=1 
40 NEXT I 

Exercicio 10, pag. 88. Modifigue o pro¬ 
grama completo de ccilculo de boletim 
de notas, de modo a realizar as seguin- 
tes fungOes adicionais: 

a. Calcular a madia global da classe 
(todas as notas); 

b. Indicar, ao lado da media de cada 
aluno, se ela esta acima ou abaixo da 
m6dia global da classe. 

Solugao: 

Vamos fazer tambdm a modificagao 
necessdria para resolver outro exercicio 
proposto: 

Exercicio 2, pAg. 87. Entrar e mostrar o 
nome de cada aluno. 


10REM = = = = = = = = = = = = = = = = = = = = = = = = = = = = 

20 REM = BOLETIM DE NOTAS DA CLASSE 
30 REM = BASIC PARA TK 85 
40 REM = R. SABBATINIVERSA02 

60 REM 

70REM **** INICLALIZACAO **** 

80 REM 

90 DIM NCTA (50 15) 

95 DIM NO$ (50 15) 

100 CLS 

110 PRINT "CALCULO DO BOLETIM DE NOTAS" 
120PRINT"= = = = = = = = = = = = = = = = = = = = = = = = = = 
130 REM 

140REM **** ENTRADA DE PARAMETROS **** 

150 REM 
160 PRINT 

170 PRINT "NUMERO DE ALUNOS NA CLASSE ?" 

180 INPUT NA 

190 IF NA > 50 THEN GOTO 170 
200PRINT N A 
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210 PRINT "NUMERODEMATERIAS ?"; 

220 INPUT NM 

230IFNM > 15 THEN GOTO 210 
240 PRINT NM 
250 REM 

260REM **** ENTRADA DE DADOS **** 

270 REM 

280 PRINT "ENTRE AS NOTAS DOS ALUNOS:" 

290 PRINT 
300FOR 1=1 TONA 
310 PRINT "ALUNO NO. ";I 
315 PRINT "NOME DO ALUNO: 

317 INPUT NO$ (I) 

320FOR J=1 TONM 

330 PRINT TAB (7); "NCTA DA MATERIA J;" ?"; 

340 INPUT NOTA(U) 

350 IF NOTA (I, J) < 0 THEN GOTO 340 
360 IF NOTA (I, J) > 10 THEN GOTO 340 
370 PRINT NOTA (I, J) 

380 NEXT J 
390 REM 

400REM **** MOSTRA NCTAS NA TELA *** 

410REM **** E CALCULA MEDIAS *** 

420 REM 

421 LET SOMA=0 

422 FOR 1=1 TONA 
424 FOR J=1 TONM 

426 LET SOMA=SOMA+NOTA (I, J) 

427 NEXT J 

428 NEXT I 

429 LET MCLAS=SOMA/(I‘J) 

430 CLS 

440 FOR 1=1 TONA 

450PRINT "ALUNO ";I;" — NOS (I);":" 

460 LET SOMA= 0 

470 FOR J=1 TONM 

480 PRINT TAB(10+5*J); NCTA (I, J); 

490 LET SOMA=SOMA+NCTA (I,J) 

500 NEXT J 

510 PRINT " MED SOMA/NM 

515 IF SOMA/NM > = MCLAS THEN PRINT " *ACIMA" 

517 IF SOMA/NM < MCLAS THEN PRINT " ‘ABAIXO" 

520 NEXT I 

530REM 

540REM **** CALCULA MEDIA DAS MATERIAS **“ 
550 REM 

560FOR J = 1 TONM 

570 LET SOMA= 0 

580 FOR 1=1 TONA 

590 LET SOMA=SOMA+NOTA (I, J) 

600 NEXT I 
610 PRINT 

620 LET MED=SOMA/NA 

630 PRINT "MEDIA NA MATERIA ";J;" = MED 

640 NEXT I 

650 STOP 


Exercicio 1, pag. 92. Modifique o pro- 
grama de emissao de nota de despesas 
de modo que tenha as seguintes fungSes 
adicionais: 

a. Entrar a data de emissao da nota e o 


Solugao: 


nome do cliente para mostrar na tela 
de emissao; 

b. Armazenar o valor total de cada no¬ 
ta, cumulativamente em uma variavel 
RENDA, e mostrar este valor se o no¬ 
me do cliente for "FIM". 


10CLS 

20 PRINT "EMISSAO DE NOTA DE DESPESAS" 

30 PRINT "CASA DE FRIOS "AZEITONA DOURADA" LTDA" 

32 PRINT 

34 PRINT "DIGITE A DATA DE HOJE:" 

36 INPUT DATS 
40 PRINT 
50 DIM MS (5,20) 

55 DIM TT (5) 

60 LET M$(0)="AZEITON AS PRETAS" 

70 LET M$( 1)="AZEITONAS VERDES" 

80 LET M$(2)="PRESUNTO GORDO" 

90 LET M$(3)="PRESUNTO MAGRO" 

100 LET M$(4)="MOZARELA" 

110 LET M$(5)="QUEIJO PRATO" 

115 LET RENDA =0 
120 REM 

130REM ***** ENTRADA DOS DADOS DA COMPRA ***** 

140 REM 

142 PRINT "DIGITE O NOME DO CLIENTE:" 

144 INPUT NOS 

146 IF NOS="FIM" THEN GOTO 900 
148 PRINT 

150 PRINT "DIGITE A QUANTIDADE COMPRADA E DEPOIS" 

160PRINT "O PRECO POR QUILOGRAMA PARA CADA MER" 

170 PRINT "CADORIA APRESENTADA NA TELA. DIGITE 0" 

180 PRINT "SE O CLIENTE NAO COMPROU A MERCADORIA" 

190 PRINT 

200 FOR 1=1 TOS 

210 PRINT M$(I);" ? " 

220 INPUT Q(I) 

230 IF Q(I) = 0 THEN GOTO 250 
240 INPUT PR(I) 

250 NEXT I 
260 REM 

270REM ***** IMPRESSAODANOTA ***** 

280 REM 
290 CLS 

300 PRINT " NOTA DE DESPESAS" 

306 PRINT 

307 PRINT "CLIENTE: NOS;" DATA:";DAT$ 

310 PRINT 

320 PRINT "MERCADORIA"; TAB(17); "QUANT PRECO" 

325 LET TQT= 0 

330 FOR 1=1105 

340 IF Q(I)=0 THEN GOTO 360 

350PRINT M$(I); TAB(17); Q(I); TAB(22); Q(I)‘PR(I) 

355 LET TOr=TOT+Q(I)*PR(I) 

360 NEXT I 

365 PRINT "TOTAL"; TAB(22); TOT 

366 LET RENDA=RENDA+TOTAL 
370 PAUSE 600 

380 CLS 


390 GOTO 150 
800 REM 
810REM ***** 
820 REM 
900 CLS 


MOSTRAR RENDA FINAL 


* ★ * # * * * 


920 STO? " RESULTADO CUMULATIVO = CR$ ";RENDA 


Exerci'cio 1, pag. 95. Modifique o pro- 
grama AGENDA para incluir as seguin- 
tes fungSes adicionais: 


1 - Exclusao de urn nome da caderneta 
(dica: o programa solicita o numero 
do registro a ser excluido e em segui- 


da coloca espagos em branco nos con- 
juntos correspondentes); 

2 - Listagem de todos os nomes colo- 
cados na caderneta (dica: coloque um 
registro em cada linha da tela, come- 
gando com o numero do registro, de- 
pois o nome, o enderegoe o telefone). 


Solugao (programa da pag. 94 completo): 

10REM ***********.♦.*..***.,*,♦,, 

15 REM * PROGRAMA AGENDA 1.00 * 

20 REM * PARA LOGICA SINCLAIR . * 

25 REM * PROGRAMA: R. SABBATINI * 

30REM *************************** 

32 REM 

33 REM 

34 REM ***** DIMENSIONAR CONJUNTOS ** 

35 REM 

36 DIM NOME$(5025) 

37 DIM ENDERECO$(5025) 

38 DIM TELEFONE$(5010) 

40 CLS 

50 PRINT" AGENDA TK" 

60 PRINT" CADERNETA DE ENDERECOS" 

70 PRINT 

80 PRINT" COMANDOS:" 

90 PRINT "= = = = = = = = = = = = = = = = - = = 
100PRINT "1 INCLUIR UM NOME" 

120 PRINT "2 MODIFICAR DADOS" 

130 PRINT "3 INFORMAR DADOS" 

150 PRINT "4 FIM" 

160 PRINT "= = = = = = = = = = = = =: = = = _ = . 
170 PRINT 
172 REM 

174 REM ***** SOLICITAR E TESTAR OPCAO 
176 REM 

180 PRINT "DIGITE UM NUMERO:" 

190 INPUT OPCAO 
200 IF OPCAO < 1 THEN GOTO 190 
210 IF OPCAO > 6 THEN GOTO 190 
242 REM 

244 REM ***** DESVIAR PARA OPCAO ***** 
246 REM 

250 IF OPCAO=1 THEN GOTO 300 
270 IF OPCAO=2 THEN GOTO 400 
280 IF OPCAO=3 THEN GOTO 500 
284 IF OPCAO=4 THEN GOTO 600 
286 IF OPCAO=5 THEN GOTO 700 
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290 IF OPCAO=6 THEN STOP 
292 REM 

294 REM ***** ADICIONAR NOMES ***** 

296 REM 

300 LET NUM=NUM +1 

310 IF NUM > 25 THEN GOTO 900 

320 CLS 

330 PRINT "ENDERECO NO."; NUM 
335 PRINT "= = = = = = = = = = = = = = =" 

340 PRINT "NOME:" 

345 INPUT NOMES(NUM) 

350 PRINT "ENDERECO:" 

355 INPUT ENDERECOS(NUM) 

360 PRINT "TELEFONE:" 

365 INPUT TELEFONE$(NUM) 

370 GOTO 40 
380 REM 

382 REM ***** MODIFICAR DADOS ***** 

384 REM 
400 CLS 

410 PRINT "ENTRE O NUMERO DO REGISTRO A SER MODIFICADO:" 
415 INPUT X 

420 IF X < 1 THEN GOTO 415 
425 IF X > 25 THEN GOTO 415 
430 PRINT 

435 PRINT "ENDERECO NO.";X 

440 PRINT ”===============" 

445 PRINT "NOME: ";NOME$(X) 

450 PRINT "ENDERECO: ";ENDERECO$(X) 

455 PRINT "TELEFONE: ";TELEFONE$(X) 

460 PRINT "NOVO NOME:" 

465 INPUT NOME$(X) 

470 PRINT "NOVO ENDERECO:" 

475 INPUT ENDERECOS(X) 

480PRINT "NOVO TELEFONE:" 

485 INPUT TELEFONES(X) 

490 GOTO 40 
492 REM 

494 REM ***** PROCURA DADOS ***** 

496 REM 
500 CLS 

510 PRINT "DIGITE O NOME DA PESSOA:"; 

520 INPUT X$ 

530 PRINT X$ 

540 FOR 1=1 TO NUM 

550 IF X$ < > NOME$(I) THEN GOTO 580 

560 PRINT "ENDERECO:";ENDERECO$(I) 

565 PRINT "TELEFONE:";TELEFONE$(I) 

570 PAUSE 600 
575 GOTO 40 
580 NEXT I 

590 PRINT "NAO CONHECO ESTE NOME" 


595 GOTO 510 
600 REM 

610REM ***** LISTA DADOS ***** 

620 REM 
630 CLS 

640 FOR 1=1 TO NUM 

650 PRINT NOME$(I);" ";ENDERECO$(I);" ";TELEFONE$(I) 

660 NEXT I 
670 PAUSE 600 
680 GOTO 40 
700 REM 

710REM ***** MODIFICAR DADOS ***** 

720 REM 
730 CLS 

740 PRINT "ENTRE O NUMERO DO REGISTRO A SER SUPRIMIDO:" 
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750 INPUT X 

760IFX< 1 THEN GOTO415 
770 IF X > 25 THEN GOTO 415 
780 LET NOME$(X)=" " 

790 LET ENDERECO$(X)=" " 
800 LET TELEFONES(X)=" " 
900 GOTO 40 


Exerdcio 1, pag. 104. Faga um programs 
de animagSo grafica para fazer um fo- 
guetinho desenhado na parte de baixo 
da tela subir em trajetbria vertical atb o 
topo da mesma. 

Solugao: 

10FORL=22TO 1 STEP-1 
20 PRINT AT L,15;"^V" 

30FORI=1 TO 20 
40 NEXT I 
50 PRINT AT L, 15;" 

60 NEXT L 


Exercicio 3, pag. 104. Modifique o pro- 
grama do Exercicio 2 da pdgina 104 pa¬ 
ra colocar um mdximo de 100asteriscos 
na tela. 


Solugao: 

10 RANDOM 
15FORI=l TO 100 
20LETX=INT(RND*30) + 1 
30 LET Y= INT(RND*20) +1 
40 PRINT AT Y,X;"*" 

50 NEXT I 


Exercicio 4, pag. 104. Faga um programa 
para desenhar uma tomeira na parte su¬ 
perior da tela, e que f ique pingando go- 
tinhas de agua continuamente (anima- 
gao grafica da gota caindo). 

Solugao: 

10 PRINT AT 1, 10;"^»" 

20 PRINT AT 2, 10;"ph" 

30 FOR I=3TO20 
40PRINT AT 1,10;" ■ " 

50 FOR J=1 TO 20 
60 NEXT I 
70PRINT AT 1,10;" 

80NEXT I 
90 GOTO 30 


Exercicio 1, pag. 107. Modifique o pro¬ 
grama que traga retas na horizontal, da¬ 
dos os pontos de inicio e fim, de modo 
que seja possivel tragar retas na vertical. 

Solugfio: 

10 REM RETAS VERTICAIS 

15 REM 

20PRINT AT 21,0,-“ENTRE 
VALOR INICIALDEY 

30 INPUT YI 


40 PRINT AT 21,0;"ENTRE 
VALOR 
FINAL DEY 
50 INPUT YF 

60 PRINT AT 21,0;"EM QUE 
POSICAO VERTICAL 
70 INPUT X 
80 FOR Y=YITO YF 
90 PLOTX,Y 
100NEXTY 
110 GOTO 20 


Exercicio 2, pag. 107. Faga um programa 
para desenhar um retangulo qualquer 
na tela (apenas o seu contomo). O usud- 
rio devera fornecer as coordenadas X e 
Y de cada canto da figura. 


Solugao: 

10 REM RETANGULO PARA O 
TK 

20PRINT "ENTRE 2 POSI- 
COES PARA LADOS HORI- 
ZONTAIS:" 

30 INPUT Yl 
40 INPUT Y2 

50PRINT "ENTRE 2 POSI- 
COES PARA LADOS VER¬ 
TICAIS:" 

60 INPUT XI 
70 INPUT X2 
80CLS 

90FORX=X1 TOX2 
100 PLOT X,Y1 
110 PLOT X,Y2 
120 NEXT X 
130FOR Y=Y1 TO Y2 
140 PLOT XI,Y 
150 PLOT X2,Y 
160 NEXT Y 

Exercicio 3, pag. 107. Faga um programa 
para desenhar um retangulo qualquer 
na tela. O usudrio devera fornecer os se- 
guintes dados: coordenadas X e Y do 
canto inferior esquendo do retangulo, ta- 
manho do lado horizontal e tamanho do 
lado vertical. 


Solugao: 

10 REM RETANGULO PARA O 
TK 

12 PRINT "COORDENADA X 
DAORIGEM:" 

14 INPUT XI 

16 PRINT "COORDENADA Y 
DAORIGEM:" 

18INPUT Yl 

20 PRINT "TAMANHO DOS 
LADOS HORIZONTAL:" 
30 INPUT H 

50PRINT "TAMANHO DOS 
LADOS VERTICAIS: 

60 INPUT V 
80CLS 

90FORX=X1 TOX1 + H 


100PLOTX,Y1 
110PLOTX,Y1+V 
120NEXT X 

130FOR Y=Y1 TO Yl+V 
140 PLOT XI,Y 
150 PLOT X1 + H,Y 
160 NEXTY 


Exercicio 4, pdg. 107. Comoo programa 
acima poderia ser modificado para 
preencher completamente o interior do 
retangulo (ou seja, desenhar um retan¬ 
gulo sdlido)? 


. Solugao: 

10 REM RETANGULO PARA O 
TK 

12 PRINT "COORDENADA X 
DAORIGEM:" 

14 INPUT XI 

16 PRINT "COORDENADA Y 
DAORIGEM:" 

18 INPUT Yl 

20 PRINT "TAMANHO DOS 
LADOS HORIZONTAL:" 
30 INPUT H 

50PRINT "TAMANHO DOS 
LADOS VERTICAL:" 

60 INPUT V 
80CLS 

90FORX=X1 TOX1 + H 
130FOR Y=Y1 TO Yl+V 
140 PLOT X,Y 
160 NEXT Y 
170 NEXT X 


Exercicio 5, pag. 107. Faga um programa 
para tragar uma reta em diagonal, indo 
do canto inferior esquendo ao canto su¬ 
perior direito da tela (atengao: este pro¬ 
grama tern apenas tres linhas!) 


Solugao: 


10FORI=0 TO40 
20PLOT I, I 
30 NEXT I 


Exercicio 6, pag. 107. Modifique o pro¬ 
grama que desenha pontinhos ao acaso 
na tela para pedir ao usuario os limites 
inferior, superior, direito e esquendo de 
um retangulo na tela, dentro do qual se- 
rao jogados os pontinhos. 


Solugao: 


10 RANDOM 
15FOR 1=1 TO 100 
20 LET X=INT(RND*30)+1 
30 LET Y= INT(RND*20) +1 
40 PRINT AT Y,X;"*" 

50 NEXT I 
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RESPOSTASAO TESTE ANTERIOR 


Teste 3, pag. 98. Escreva um programa 
para realizar a seguinte tarefa: um clube 
de aficionados de microcomputadores 
deseja fazer uma lista de todos os seus so- 
cios, na gual conste a idade de cada um 
e a marca do microcomputador que pos- 
sui. O programa, depois de entrados os 
dados, informara: 

- o numero de socios que tern micro¬ 
computadores marca TK-85; 


- o numero de sdcios que tern micro¬ 
computadores marca Apple; 

- o numero desdcios que tem outrosti- 
pos de microcomputador; 

- a idade media dos socios do clube; 

- o nome do sdcio mais novo do clube. 

Utilize conjuntos unidimensionais 
chamados NOME$, IDADE e COMPU- 
TADOR$ para registrar os dados acima. 


Solugao: 

10 REM = = = = = = = = = = = = = = = = = 

20 REM CADASTRO DO CLUBE 
30 REM PARA TK-85 

40 REM = = = = = = = = = = = = = = = = = 

50 REM 

60 DIM NOME$(20,20) 

70 DIM IDADE(20) 

80 DIM COMPUTADOR$(20,12) 

90 LET SOCIOS=0 
100 REM 

110REM ***** ENTRADA DE DADOS ***** 

120 REM 

130 PRINT "ENTRADA DOS DADOS DOS SOCIOS." 

140 PRINT "PARA TERMINAR DIGITE *" 

150 PRINT 
160 CLS 

170 PRINT "SOCIO NO.";SOCIOS+1 
180 PRINT AT 21,0;"NOME DO SOCIO:" 

190 INPUT NOME$( SOCIOS+1) 

200 IF NOME$(SOCIOS +1)="*" THEN GOTO 300 
210 LET SOCIOS=SOCIOS +1 
220 PRINT "IDADE DO SOCIO:" 

230 INPUT IDADE(SOCIOS) 

' 240 PRINT "COMPUTADOR QUE TEM:"' 

250 INPUT COMPUTADOR$( SOCIOS) 

260 GOTO 160 
270 REM 

280REM ***** PESQUISAS ***** 

290 REM 
300 LET TK85=0 
310LET APPLE=0 
320 LET SOMA= 0 
330 LET MENOR=99 
340 FOR 1=1 TO SOCIOS 

350 IF COMPUTADOR$(I)="TK-85" THEN LET TK85=TK85+1 
360 IF COMPUTADOR$(I)="APPLE" THEN LET APPLE=APPLE+1 
370 IF IDADE(I) (MENOR THEN LET MENOR=I 
380 LET SOMA= SOMA+IDADE(I) 

390 NEXT I 
400 REM 

410REM ***** RESULTADOS ***** 

420 REM 

430 PRINT "SOCIOS COM TK-85=";TK85 

440 PRINT "SOCIOS COM APPLE=";APPLE 

450 PRINT "OUTROS COMPUT. = ";SOCIOS-APPLE-TK85 

460 PRINT 

470 PRINT "IDADE MEDIA="';SOMA/SOCIOS 
480 PRINT "SOCIO CACULA^";NOME$(MENOR) 

490 STOP 
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